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ABSTRACT 



The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program was developed at the Naval Postgraduate School to perform performance, 
stability and control, and rotor dynamics analysis during preliminary helicopter design 
efforts. This thesis is the continuation of a previous work in which a Graphical User 
Interface (GUI) was developed and implemented as the front end to the JANRAD 
program. Due to the complexity of the GUI design, only the Performance module of 
JANRAD was completed by the prior student. This thesis expands the capabilities of the 
Performance module, and the JANRAD code, by adding graphical output of performance 
results, improved rotor sizing capabilities, resources for user defined blade elements and 
non-linear blade twist, airfoil meshing capabilities, and additional reference airfoil data 
corrected for compressibility effects. It also contains the basic architecture for the 
Stability and Control module GUI. Additionally, utilizing actual UH-60A Black Hawk 
airfoil and test flight data as inputs, JANRAD 98 version 5.0 was run to validate its 
output with the test flight results, and those produced in a prior thesis by JANRAD 
version 3.1 (1995). Excellent agreement was demonstrated in all flight regimes. 
Utilizing airfoil data corrected for compressibility effects, high altitude runs resulted in 
much better correlation with test flight results than those experienced in 1995 using 
uncorrected airfoil data. A JANRAD Users Guide was updated and is included as 
Appendix A. 
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DISCLAIMER 



Readers are also cautioned that the computer code in this thesis may not have been 
exercised for all cases of interest. While effort has been made, within the time available, 
to ensure that the program is free of computational and logical errors, additional 
verification should be applied. The use of this application is at the risk of the user. 
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I. INTRODUCTION 



A. BACKGROUND 

The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer code 
was originally developed by students at the Naval Post Graduate School (NPS) in 
response to the 1993 American Helicopter Society (AHS) Design Competition. The 
desire to develop an easy to use, accurate design tool was the motivation for a thesis 
completed by Nicholson (1993). This code has assisted the last 5 NPS Helo Design 
Teams garner 1 st or 2 nd place finishes in the AHS competitions, and the new version of 
JANRAD 98 proved its usefulness to this year’s design team. The results from this 
competition will not be known until sometime in the fall. 

JANRAD consists of three separate modules, each developed by different 
students. Design of the performance module and stability and control module are based 
on classical blade element theory. More detail on the design of these modules is given in 
Wirth (1993), Nicholson (1993), and Eccles (1995). Although separate, the stability and 
control module does require that the performance module be run first as it uses the 
resulting rotor trim conditions to calculate stability derivatives. The blade dynamics 
portion of JANRAD will not be discussed in this thesis. 

The main performance function calculated 25 different helicopter performance 
parameters given 35 input parameters. The program was written in MATLAB PC 
version 3.5 using a combination of script and function M-files. Inputs were made at the 
command line or loaded as a filename . mat file from the current working directory. The 
output was displayed in the main workspace and an option to save the output was also 
built into the program. 
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The stability and control module calculates a complete set of linearized stability 
derivatives for the helicopter by perturbing it from its “equilibrium” or “trim” condition 
which is calculated in the performance module. 

Since JANRAD version 1.0 was initially developed, many features have been 
added. A section for Rotor Dynamics, was developed by Hiatt (1995). Minor updates 
have included time varying tip loss analysis, the ability to calculate performance 
characteristics over a range of selected input parameters and the addition of airfoil 
choices. Eccles (1995) validated the code by conducting a detailed comparison between 
JANRAD version 3.1 and Sikorsky UH-60A and H-34 measured flight test data. 
JANRAD results predicted power required within 2% for altitudes below 6000 feet MSL. 

The motivation for this thesis is the prior work done by Lapacik (1998) on the 
development of JANRAD version 4.0. Better known as JANRAD 98, the thrust of 
version 4.0 was development of a Graphical User Interface (GUI) to simplify operation of 
the JANRAD code. A major complaint by past users was the excessive amount of time it 
took to work within the command window of MATLAB®, and the lack of reliability or 
robustness of the program. Through development of a “Windows® “ type interface tied 
to the existing code, users can now quickly make multiple runs varying input parameters 
to accomplish preliminary design efforts including; sizing of engines and transmissions, 
rotor blade design, tail rotor design, and calculating performance characteristics of 
chosen designs. 

B. JANRAD 98 VERSION 4.0 

The development of JANRAD 98 version 4.0 was accomplished utilizing tools 
only recently available with the release of MATLAB® version 5.0. The most important of 
these, a function called GUIDE® (Graphical User Interface Design Environment) allows 
the developer to create interactive screens which resemble those of Windows®, using 
“drag and drop” controls or objects obtained from a master pallet. Transparent to the 
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GUI developer, MATLAB® 5 automatically writes the code required to create the 
screens. These screen displays significantly improve the look, speed, and ease of use of 
the program. Figure 1 depicts the GUIDE® Control Panel. Other important features of 
MATLAB® 5 are the use of variable “structures”, and the Editor/Debugger. Structures 
can be built to contain multiple variables, requiring the programmer to pass only one 
variable name to the different m-files and functions. This is invaluable when dealing with 
the large numbers of files associated with JANRAD 98. The Editor/Debugger 
automatically indents and highlights specific MATLAB commands making it easier for 
the programmer to find and correct errors, and making the code much easier to read. 




Figure 1. The GUIDE® Control Panel from MATLAB® 5. 
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Specific details on the development of the GUIs are outlined in Dean (1997), and Lapacik 
(1998). This “front end” design makes utilizing the code, or back end, essentially 
transparent to the user. Where once the user was prompted to provide or ask for 35 input 
parameters, he now only must select a pre-compiled data file which contains these 
parameters. Figure 2 is a sample of the command line of the old JANRAD version 3.1. 
Imagine having to go through and select any number of the 35 such input lines, one at a 
time. In contrast, Figure 3 displays the input parameters screen of JANRAD 98. The 
values from the selected data file are displayed automatically. Modification of any of the 
inputs is easily accomplished by simply overwriting the displayed values. 




Figure 2. Sample Input Command Window of JANRAD version 3.1 
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The interfaces for several of the performance module improvements are contained 
on this screen. Each of them will be discussed in detail in section II. With the GUI 
implementation, JANRAD was transitioned from a slow, command line program, 
reminiscent of MS DOS, to a much more efficient, better looking program more in line 
with some of the latest professional engineering software packages. Due to time 
constraints on the previous author, however, several design functions of the Performance 
module were not completed. 
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c. 



JANRAD 98 VERSION 5.0 PERFORMANCE MODULE 



JANRAD 98 version 5.0 is primarily a continuation of Lapacik’s (1998) work by 
this writer. This author spent approximately six weeks working with Lapacik to 
develop the requisite GUI and Performance module knowledge necessary to take 
over the work where he left off. Accomplishments during that period included: 

• Code required to display directory and files available to the user. 

• Code required to display values in Performance Input screen. 

• Design of callbacks allowing user to change the values of variables. 

• Code required for MATLAB® to save and print input, output, and matrix files. 

• Actual tying together of the GUI with the existing JANRAD code. 

• Creation of basic status display showing user the progress of Performance run. 

• Modification of JANRAD version 3.1 code and variables to correspond with 
JANRAD 98 use of structures and graphics handles. 

• Addition of Sikorsky airfoil CL and CD data, and construction of code 
allowing its use. 

• Integration of different GUI screens ensuring smooth and proper transfer 
between them with proper variable values being passed. 



All of these accomplishments are included in JANRAD 98 version 4.0 but play a large 
role in the accomplishment of version 5.0 improvements to the Performance module. The 
major areas of emphasis in this thesis for the completion of the module were as follows: 

• Tie in existing JANRAD 3.1 graphical output capabilities and develop 
additional capabilities. 

• Improve the visual status display to keep user better informed of program 
progress during runs. 
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• Improve existing airfoil data by obtaining manufacturer’s data corrected for 
compressibility effects (Mach number dependent), and implementing this data 
into JANRAD 98 version 5.0. 

• Develop a method to allow the user to input a vector of desired blade element 
dimensions vice a computer generated element vector. 

• Develop a method to allow user to add an additional airfoil at any desired 
blade station as is done in many advanced airfoil designs. 

• Develop a method to allow the user to specify the blade twist at any blade 
station rather than assume a linear blade twist. 

• Add GUI screen to allow user to select type of tailrotor and input tail rotor 
parameters. 

• Adjust program to allow for performance calculations on compound 
helicopters and compounds with auxiliary thrust. 

• Add main rotor radius and main rotor speed iteration methods to improve 
rotor sizing capabilities of the program. 

• Re-run several test flight scenarios from Eccles (1996) utilizing correct 
Sikorsky airfoil data and compare results to those of actual UH-60 test flight 
data. 

Each of the above improvements are discussed in detail in section II. 

D. JANRAD 98 VERSION 5.0 STABILITY AND CONTROL MODULE 

An initial goal of this thesis was to complete as much of the Stability and Control 
module GUI implementation as time would allow. Interest by another student in 
continuing the thesis work allowed for a pass down period on GUI design and 
MATLAB® code integration. Using the Stability and Control code written by Wirth 
(1993) and the GUI design methods of Lapacik (1998) and Dean (1997), the intial input 
screens for the module were created. These GUI screens are included as Figures 12 and 
13. 
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E. 



USER’S GUIDE 



A User’s Guide is attached as Appendix A and gives an overview of the major 
features and procedures for using JANRAD version 5.0. Originally developed by 
Lapacik (1998) for version 4.0, this guide has been updated to include the improvements 
of version 5.0. Additionally, the guide will give an introduction to the Stability and 
control module usage procedures. 

F. JANRAD 98 VERSION 5.0 FILE STRUCTURE FLOW CHART 

An updated flow chart which tracks the files and Callback operations of JANRAD 
98 version 5.0 is included as Figure 4. The files referenced in the flow chart are included 
as Appendices. 
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MAT LAB COMMAND LINE 
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Figure 4. JANRAD 98 version 5.0 File Structure Flow Chart 
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H. JANRAD VERSION 5.0 IMPROVEMENTS 



A. TIED IN EXISTING JANRAD 3.1 GRAPHICAL OUTPUT 

CAPABILITIES AND DEVELOP ADDITIONAL CAPABILITIES 

The earlier versions of JANRAD, including JANRAD version 3.1, contained 
limited graphical output capabilities. Those plot routines present in version 3.1 were 
customized by previous users to fit their output needs. To provide the flexibility 
necessary for users to extract desired information from the performance results, a number 
of available plots were designed for each of the different iteration methods. The 
Airspeed Iteration plot screen is displayed as Figure 5. Any or all of the available plots 
may be selected by the user. 




Figure 5. Airspeed Iteration Plot Screen 
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Figure 6 shows the Power Required plot for an airspeed iteration from 50-120 
knots. Separate GUI screens were developed for each of the iteration methods. When the 
user selects the available “PLOT” option, the pertinent screen appears allowing them to 
select the desired plots. Upon selecting the “Create Plots” button, a MATLAB® file, 
known as an m-file, creates the plots. Most of the plots are created utilizing calculated 
performance outputs, however, some prompt the user for additional parameter inputs. 




Figure 6. Rotor Power Required vs. Airspeed Plot 
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B. IMPROVED THE VISUAL STATUS DISPLAY TO KEEP USER BETTER 



INFORMED OF PROGRAM PROGRESS DURING RUNS 

The early versions of JANRAD, (i.e. version 3.1) contained a series of status lines 
which displayed on the MATLAB® command window to keep the user advised of the 
status of the run. One problem with the use of the GUI is that the code runs in the 
background and therefore is mostly transparent to the user. Due to the extended run 
times involved with some scenarios, it was desired to develop a means of keeping the 
user informed of the status of the run. Figure 7 is a representative status during a 
JANRAD 98 version 5.0 run. The right half of the screen shows the four status boxes 
created to inform the user which part of the trim sequence is being completed, the elapsed 
time of the run, the iteration number of the trim sequence which is being completed, and 
the value of the iteration method variable. 
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Figure 7. Analysis Status Box 
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C. IMPROVED EXISTING AIRFOIL DATA BY OBTAINING 

MANUFACTURER’S DATA CORRECTED FOR COMPRESSIBILITY 

EFFECTS (MACH NUMBER DEPENDENT), AND IMPLEMENTING 

THIS DATA INTO JANRAD 98 VERSION 5.0 

One of the major recommendations of Eccles (1995) was to attempt to obtain 
airfoil data corrected for mach number and kinematic viscosity so that the program would 
be more reliable at altitudes above approximately 8-10,000 feet. He was able to add 
NACA 0012 data which was mach number dependent, but both the VR12 and HH02 
airfoils provided single CL and CD curves. This author was able to obtain new data from 
both Sikorsky and Boeing which provide CL and CD curves for mach numbers from 0.0 
up to 1.0. Since pressure altitude is an input parameter for the performance routine and 
mach number varies with altitude, the discrepancies at high altitudes shown by Eccles 
(1995), should be reduced or eliminated. As will be shown later in the validation section 
of this thesis, the results obtained using mach number dependent airfoil data agree much 
closer with UH-60 flight test data than that produced by Eccles with the single curve 
VR12 data. The addition of the Sikorsky data brought the airfoil database in JANRAD 
98 version 5.0 up to 6 airfoils. They are the HH02, VR12, VR15, NACA-0012, 
Scl094R8, and the Scl095R8. For this data, we have compressibility corrected data in 
the cases of the VR series airfoils (Boeing), the SC series airfoils (Sikorsky), and the 
NACA-0012 airfoil (UTRC). Additionally, the interpolation capabilities of MATLAB® 
were utilized requiring only tabulated data and not the curve fitted polynomials utilized 
by Nicholson and Eccles. This results in more accurate CL and CD values being utilized 
in the trim routine. Appendix B contains summary CL and CD plots for the VR12, VR15, 
Scl094R8 and Scl095R8 airfoils to allow a user to match requirements of any particular 
design. 
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D. DEVELOPED A METHOD TO ALLOW THE USER TO INPUT A 
VECTOR OF DESIRED BLADE ELEMENT DIMENSIONS VICE 
COMPUTER GENERATED ELEMENT VECTOR 



The JANRAD code creates a vector of blade element location dimensions based 
on main rotor radius and the number of blade elements input by the user. For some 
applications it may be desired to replace this “evenly spaced” vector to allow the user a 
better picture of what is happening at a specific blade station. This capability would 
allow the user to increase or decrease the spacing of the blade elements at will. Used in 
conjunction with user defined blade twist, the user can specify the blade dimension and 
corresponding blade twist. By choosing to enter unevenly spaced blade elements on the 
input parameters screen, the user is presented by a screen (Figure 8), on which the blade 
element dimensions may be entered. 




twist values 
the effective 
value. Max i 



the blade (grip) is the default first r/R v 

correct, and that a twist is entered for. 
Grip Ralio«0.1118 



.2 



Continue | 



Figure 8. User Defined Blade Element and Blade Twist Screen 
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The non-aerodynamic dimension of the blade, or “Grip Ratio” (an input parameter 
accounting for the blade root end), is automatically entered as the default first blade 
element location. Additionally, the “Effective Blade Radius Ratio” (provides for tip loss), 
is calculated and displayed. This is the same screen on which nonlinear blade twist 
entries may be made. Nonlinear blade twist will be discussed in a following section. 

After blade element location dimensions are entered, JANRAD 98 version 5.0 
calculates the element spacing and adjusts the dimensions to the center of each element. 
Built in error detection gives the user an error message if a dimension greater than the 
effective blade radius is entered. Once constructed, this vector of blade elements is 
utilized for performance calculations by JANRAD 98 version 5.0. At this point in the 
program, no blade element is created out past the effective blade radius. Later an 
adjustment is made so that profile drag forces on the tip of the blade are accounted for, 
but lift forces are zeroed out. 



E. DEVELOPED A METHOD TO ALLOW USER TO ADD AN 

ADDITIONAL AIRFOIL AT ANY DESIRED BLADE STATION 

Many advanced rotor blades are made up of more than one airfoil section. This 
“meshing” of airfoils provides for better airfoil performance due to the use of varied 
airfoil thickness and shapes. It is primarily utilized out near the rotor tip. In order to 
more accurately model rotor performance, it was desired that JANRAD 98 version 5.0 
have this capability. Added as an option on the performance input screen, the user can 
choose to perform an airfoil mesh and specify at what r/R value it should occur. Upon 
entering this value a screen appears which allows selection of the two airfoil types. In all 
performance calculations the CL and CD curves for the appropriate airfoils are utilized. 
Although it is conceivable that some blades may utilize more than two airfoil types, 
JANRAD 98 version 5.0 allows the use of only two airfoils. Figure 9 shows the airfoil 
mesh screen. If the user allows the program to generate a vector of blade elements and 
then selects a mesh point which does not align with a blade element, a logic statement 
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calculates the closest existing blade station to that selected by the user for the mesh. 
Therefore, there may be a small discrepancy in where the mesh takes place with that 
selected. This should have a negligible effect on the output. If the user desires an exact 
mesh point then the uneven blade element feature should also be selected. 



F. DEVELOPED A METHOD TO ALLOW THE USER TO SPECIFY THE 
BLADE TWIST AT ANY BLADE STATION RATHER THAN ASSUME A 
LINEAR BLADE TWIST 

As was discussed in the blade element section, it is no longer common practice to have a 
linear twist over the length of the rotor blade. Previous versions of JANRAD were based 
on the assumption that twist was linear. To account for non-linear twist it was necessary 
to make changes to the way JANRAD 98 version 5.0 calculated the twist at each blade 
element. Utilizing the blade element/blade twist screen shown in Figure 8, it is now 
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Figure 9. Airfoil Mesh Selection Screen 



possible for the user to calculate the twist at any desired blade element dimension and 
input the value. Figure 10 illustrates the blade structural twist of the UH-60A rotor blade. 
Although mostly linear, the twist varies a great deal out near the tip resulting in a “fish 
hook.” This drastic change in twist helps optimize aerodynamic characteristics out near 
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the tip. Similar to the blade element calculations, the blade twist at the left edge of a 
blade element is entered. The code is written to calculate the length of the blade elements, 
adjust the twist output to the middle of the element, and calculate the new twist value at 
this position. If the right edge of the last blade element does not happen to correspond to 
the effective blade radius, a value for the twist of that element will not exist. The code is 
written such that the slope of the twist vector from the previous blade element is utilized 
to calculate the twist for the last element. If this approximation is insufficient, as it would 
be for the UH-60 twist distribution, the user would have to vary his blade element 
spacing to decrease the spacing out near the tip to capture this twist variance. 





Radius, r/R 

Figure 3. Blade structural tvist. 



Figure 10. TJH-60A Blade Structural Twist 
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G. 



ADDED GUI SCREEN TO ALLOW USER TO SELECT TYPE OF TAIL 
ROTOR AND INPUT ROTOR PARAMETERS 



A major problem noted by past users of JANRAD was that program changes were 
introduced each year by the student design teams utilizing it for the AHS Design 
competition. This was no more evident than in the code written to calculate tail rotor 
performance parameters. In reviewing the code during this thesis it was discovered that 
JANRAD was restricted to calculating the performance of a fan-in-tail type of tail rotor. 
Again, to increase the flexibility of JANRAD version 5.0, a selection was added to the 
performance input screen which allows the user to choose between a conventional tail 
rotor, fan-in-tail or notar. A screen was then added allowing the user to enter tail rotor 
dimensions and parameters. The performance of the tail rotor, based on the user inputs, 
is calculated and included in many of the graphical output plots. The tail rotor parameters 
input screen is included as Figure 11. 
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Figure 11. Compound Helicopter and Tail Rotor Input Parameters 
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Time constraints only allowed for the conventional tail rotor code to be fully 
implemented. Although the displays for the other types are included. The underlying 
JANRAD code has not been completed. For the conventional helicopter input, rotor 
speed multiplied by rotor radius is assumed to be equal for the main rotor and tail rotor. 
That is, tail rotor rpm is selected on the basis that main and tail rotors have the same tip 
speed. A default value for tail rotor speed based on this relationship is displayed on the 
tail rotor parameters input screen. 

H. ADJUSTED PROGRAM TO ALLOW FOR PERFORMANCE 
CALCULATIONS ON COMPOUND HELICOPTERS AND 
COMPOUNDS WITH AUXILIARY THRUST 



The 1998 AHS Student/Industry Design competition RFP calls for a rotorcraft 
designed to carry passengers in the Northeast corridor. To meet requirements, the design 
team selected a compound helicopter with auxiliary thrust capable of reaching speeds of 
180-210 knots. During preliminary design work the need for additional capabilities from 
JANRAD 98 version 5.0 became evident. Early versions of JANRAD (i.e. version 3.1) 
had capabilities of providing auxiliary thrust and a wing, but did not allow for scheduled 
control of the the tip path plane angle of the main rotor, or varying the amount of thrust 
as a function of the drag of the aircraft. The left half of Figure 1 1 was designed to 
provide these input capabilities. User inputs lead to a variance from the original 
JANRAD code, setting the tip path plane to any desired angle and/or allowing an 
auxiliary thrust schedule. This can be manipulated to vary as airspeed, wing area or other 
parameters, and the resulting drag, change. This added feature allows the user to 
optimize a compound helicopter design by observing the effect of small changes made to 
the tip path angle or auxiliary thrust. 
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During the design team’s work it was found that setting the tip path plane angle to 
zero in cruise flight while allowing the auxiliary propeller to provide the required 
horizontal thrust minimized rotor drag for a positive savings in total power required. 
Future improvements to this capability would be to automate the capability of setting an 
auxiliary thrust schedule for any desired airspeed range and/or varying the tip path plane 
angle with airspeed or flight regions (hover, climb, cruise, etc). Additionally, a method 
to set the desired percentage of lift that the wing should cany at any airspeed by varying 
collective would be beneficial. 

L ADDED MAIN ROTOR RADIUS AND MAIN ROTOR SPEED ITERATION 
METHODS TO IMPROVE ROTOR SIZING CAPABILITIES OF THE 
PROGRAM 

The primary purpose of the JANRAD Performance module is for sizing main and 
tail rotors, and engines during preliminary design of a helicopter. To properly do this one 
must be able to vary rotor radius and rotational speeds to find their optimum values. To 
better aid this goal, two additional iteration methods were added to the JANRAD iteration 
methods screen. These are Rotor Radius and Rotor Speed. As described in Lapacik 
(1998), these methods allow the user to specify minimum, maximum and interval values. 
The performance module is then run and generates vectors of output, which may be 
plotted to provide the user with desired performance data. 

J. IMPLEMENTED LIFT DISTRIBUTION PLOTS TO BETTER MATCH 

FLIGHT TEST DATA 

When aircraft such as the UH-60A are instrumented for flight tests, pressure 
transducers are used on the blades to measure the pressure differentials at specific radial 
locations. These pressure differences directly represent the incremental lift or normal 
force (dN) of the blade at that location. Traditionally, computer simulation models have 
output thrust distributions (dT) on rotor blades instead of lift distributions. The 
distinction is that the incremental thrust vectors are aligned parallel to each other and 
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parallel to the rotor axis of rotation. This discrepancy raises the question of whether there 
are significant differences between the two. Figure 12 shows a blade element with both 
thrust and lift vectors, and their components represented. The equations for calculating 
incremental thrust and lift are also shown. 




dT = 0.5*p*cblade*dr*(TJp A 2+Ut A 2)*(CL*cos(O)-CD*sin(O)); 
dN = 0.5*p*cblade*dr*(Up A 2+Ut. A 2)*(CL*cos(a)+CD*sin(a)); 

Figure 12, Lift and Thrust Vectors for Blade Element in Forward Flight 



To examine this question the equations for lift were added into JANRAD 98 
version 5.0, and plots identical to the thrust distribution plots were created. Sample thrust 
distribution and lift distribution plots for the UH-60A at 115 knots are contained in 
Appendix F. These show that there is minimal, if any, difference between the two plots. 
Therefore, thrust distribution plots, labeled as airload plots, will continue to be used 
throughout this thesis. 
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m. REPLICATION OF TEST FLIGHT SCENARIOS FROM ECCLES (1996) 



A. BACKGROUND 

In 1995, LT David Eccles completed a thesis which, in part, set out to validate the 
results of then JANRAD version 3.1 with Sikorsky UH-60A test flight data gathered from 
NASA’s Ames Research Center. Given the ability to access NASA’s Tilt Rotor 
Engineering Database System (TRENDS), he was able to download data gathered from 
extensive test flights of a fully instrumented UH-60A. Through data manipulation, 
described in detail in his thesis, he generated plots of airload distribution across the rotor 
disk, power required at various airspeeds ranging from hover to cruise, and thrust 
moment variations with azimuth. Although his results in most instances validated 
JANRAD’s calculations by producing results matching very well those of NASA, the 
correct airfoil data of the UH-60A were not available to him at that time. In place of the 
UH-60A airfoil data, he used the Boeing VR-12 airfoil. This data had originally been 
provided NPS in 1993 for the full angle of attack range to 360 degrees. The data also 
included compressibility corrections at lower angles of attack in increments of Mach 
number from 0.0 to 1.0. Between 1993 and 1995 the compressibility corrections were 
removed from this data. LT Eccles was unaware of this, and as a result, did not have 
compressibility effects properly accounted for in his work to validate the UH-60A. As a 
result, there were major disparities between JANRAD’s outputs and the UH-60A flight 
test data at altitudes above 8,000-10,000 feet as reported in Eccles (1995). At these 
altitudes there is significant variation in Mach number due to decreased density of the air. 



B. ROLE OF JANRAD 98 VERSION 5.0 IMPROVEMENTS 

The addition of the Sikorsky Scl094R8 and Scl095R8 airfoil data has provided 
what is hoped to be a solution to the high altitude output variations from the test flight 
data experienced by Eccles (1995). Mach number is calculated by JANRAD before 
accessing the CL and CD tables, and it will vary for a given airspeed as the pressure 



23 



altitude increases and the air density decreases. The Sikorsky data is tabulated according 
to angle of attack from -180 degrees to 180 degrees for the following Mach numbers; 
0.0, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0. 

The airfoil mesh capability of JANRAD version 5.0 will allow for the blade to be 
modeled closely approximating the actual UH-60A blade. The Scl095R8 airfoil is 
utilized from the blade root out to approximately 0.8 r/R and than the Scl094R8 is 
utilized from that point out to the tip. The mesh point and airfoils can be readily selected 
on the performance input screen. 

The blade element and non-linear blade twist screen can be utilized to model the 
structural twist of the UH-60 rotor blade as is shown in Figure 10. Eccles (1995) utilized 
the equivalent linear twist of -18 degrees for his thesis. 

Using the graphics capabilities added to JANRAD 98 version 5.0, the airload 
plots contained in Eccles’ thesis can be easily created to verify data. For the purpose of 
the qualitative analysis of results, these plots will be modified to contain all three sets of 
data; Eccles, Test Flight results, and JANRAD version 5.0 results. 

C. RESULTS 

1. Inputs to JANRAD version 5.0 

Inputs were initially held to those values used by Eccles except in the case of the 
Sikorsky airfoil data and blade twist distribution. The flight conditions for the different 
test flights were also utilized to more closely replicate results. After several attempts to 
replicate power required plots proved unsuccessful, these inputs were examined. It was 
discovered, after discussions with Sikorsky Aircraft, that the equivalent flat plate areas 
that had been used were too large. The basic flat plate area used in their performance 
models is 30 square feet and it is adjusted based on fuselage angle of attack and center of 
gravity location. It is also corrected for stabilator incidence. Therefore, a range of 26-40 
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feet was used with the demarcation ranges listed below in Table 1. These areas were 
added into the JANRAD 98 version 5.0 code. Additionally, Eccles (1995) had used a 
value of 0.7 for the horizontal tail coefficient of lift resulting in a lift value of nearly 3000 
pounds at the horizontal tail at 1 60 knots. As the present JANRAD rotor trim code trims 
for the case where the aircraft center of gravity lies on a vertical line through the axis of 
rotation of the main rotor hub, it is believed that large offset force would have introduced 
errors into rotor trim results and ultimately, power required calculations. This was 
corrected by obtaining from Sikorsky their values for horizontal tail loading versus 
airspeed. At slow speeds, negligible horizontal tail loads exist. For a 16,450 pound gross 
weight helicopter, at 160 knots with a slightly forward center of gravity, their test data 
showed a download of 1460 pounds at the horizontal tail. A linear approximation of this 
download was placed into the JANRAD 98 version 5.0 code to help account for the 
power requirement which will be associated with it. Further discussions with Sikorsky 
centered around the non-linear twist of the UH-60A rotor blade. They approximate this 
in their analysis by using a linear equivalent twist of 14-16 degrees. A median value of 
15 degrees was used for all JANRAD power required runs. 



Airspeed 


0 to 50 Kts 


50 to 90 Kts 


90 to 140 Kts 


140 to 160 Kts 


Flat Plate 
Area 


35 ft 2 


32 ft 2 


30 ft 2 


28 ft 2 



Table 1. Equivalent Flat Plate Area Values for the UH-60A Model 



2. Airloads 

Preliminary JANRAD runs in which the actual twist of the UH-60A rotor blade 
was approximated showed a spike in the radial distribution of lift along the blade. This 
occurred at a point along the blade that corresponded to the location of the start of the 
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“fish hook” twist distribution. Three possible explanations for this phenomena were 
postulated ; (1) the tapering or camber of the meshed section of Scl094R8 airfoil used at 
the tip of the actual UH-60 blade is not modeled correctly in JANRAD 98 version 5.0; (2) 
there are significant 3-D tip vortex effects present on the UH-60A blade normally 
compensated for by the “fish hook” which were not accounted for in the JANRAD 98 
version 5.0 model; and (3) the UH-60A swept blade tip is not modeled in JANRAD 98 
version 5.0. 

Figures D.l. through D.4. show the thrust distribution plots for the UH-60A at 
HOGE and 115 knots with the Scl095r8 and Scl094r8 airfoils meshed at 0.80 r/R. As 
can be seen, the general curve follows that of the test flight data out to the “fish hook” in 
the twist distribution. Even the slight increase in thrust at the mesh point is evident. 
Since the radical change in structural twist occurs out near the tip where JANRAD’s two 
dimensional theory and constant tip loss assumptions break down, and the twist is not 
modeled even in Sikorsky’s models, the rest of the runs were made using the equivalent 
linear twist of -15 degrees. Figures D.3 through D.10 show UH-60A radial airload 
distributions at psi= 0, 90, 180 and 270 degrees for airspeeds of 0, 65, and 115 knots. 
Notice that the JANRAD 98 version 5.0 predicted results more closely matching those of 
the actual test data than do the previous calculations of Eccles (1995) in most cases. This 
is expected, if for no other reason than the use of actual UH-60A mach number dependant 
airfoil data instead of the single curve VR-12 data. Tip airloads are still not modeled 
very closely due to an inability to model the 3-D flow of the blade’s swept tip. 

3. Power Required vs. Airspeed 

Figures E.l through E.4 validate the power required curves of the UH-60A with 
JANRAD 98 version 5.0. Shown are traces of actual and predicted main rotor power 
versus airspeed for the UH-60A. In all cases, the helicopter is in straight and level flight. 
The flight conditions were obtained along with the actual test data from the TRENDS 
database. The primary differences from flight to flight are that the helicopter’s gross 
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weight and the altitude at which the flights were flown both increased as the program 
progressed. 

An important contribution of Eccles (1995) work was recognizing that flat plate 
areas had to also be adjusted to account for the automatic flight settings of the variable 
incidence horizontal stabilator on the UH-60A. In his work and the present work, it was 
important to compensate by adjusting the overall equivalent flat plate area input to the 
program. 

Discussions with Sikorsky provided insight into realistic flat plate areas and 
horizontal tail forces versus airspeed. These assisted in producing reasonable results. 
This shows the sensitivity of the power required to small variations of flat plate area, and 
the importance of knowing accurately what the flat plate area of any given helicopter is at 
every flight condition. In the case of both the UH-60A Blackhawk and the AH-64A 
Apache helicopters, scale model tests were conducted in the NASA Langley low speed 
wind tunnel to obtain corresponding flat plate areas. 

Limitations of up to ten percent in predicting power required below 
approximately 50 knots can be attributed to well understood approximations in programs 
such as JANRAD. The classic text by Gessow & Meyers (1952) cited the following as 
potential sources of error in hover performance prediction: 

> Profile-drag losses 

> Nonuniform inflow 

> Slipstream rotation 

> Tip losses 



For the case of a preliminary design tool, the discrepancies between the JANRAD 
98 version 5.0 results and the test flight data can be considered small. JANRAD 98 
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version 5.0 predicted values within approximately five percent throughout all runs, at 
varying altitudes, airspeeds, and temperatures. In order to increase the expected 
accuracy, significant changes to the JANRAD code would need to be made. These 
changes would increase the complexity and running time of the program, negating the 
primary reason it was designed; to provide a user friendly, preliminary design tool, based 
on industry accepted procedures and assumptions. 
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IV. CREATING STABILITY AND CONTROL GUI ARCHITECTURE 



A. DESIGNING THE FRONT END 

Utilizing the methods and lessons learned from development of the Performance 
Graphical User Interface (GUI), work was begun on the Stability and Control module of 
JANRAD 98 version 5.0. Section II of Lapacik’s (1998) thesis outlines in detail the use 
of GUIDE ® to develop figure windows. The Stability and Control module required an 
additional 64 variable entries in order to calculate all of the pertinent stability derivatives. 
A structure containing the new input variables was created was saved into the existing 
data files. Two input screens, shown in Figures 12 and 13, were developed which contain 
descriptors and edit text boxes with all values displayed. 



jStabgRy and Control P arameter# • ... . " , ' ■ 




Figure 13. Stability and Control Input, Screen 1 of 2 
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These values are automatically loaded when a data file is selected at the 
beginning of the JANRAD 98 version 5.0 session. Even if the user elects to create a new 
input file instead of loading an existing one for the Performance module, the option will 
be given to load an existing file for the Stability and Control section due to the large 
number of variables which must be entered. 



£Se 6* l^ndcMf gate WMWDCpfens . . 



STABILITY AND CONTROL PARAMETERS (PAGE 2 OF 2) 




Figure 14. Stability and Control Input, Screen 2 of 2 



The MATLAB® code for the input figures was automatically generated as the 
figures were created. Additional properties and Callbacks were added after initial 
development to adjust or create the properties and/or functions of the individual 
uicontrols. As was the case with the Performance module, only minor changes were 
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made to the MATLAB® code while tying it to the GUI by way of Callbacks and 
Switchyards. 

B. CONNECTING THE BACKEND 

As the file structure of JANRAD 98 version 5.0 continued to grow, keeping track of M- 
files and variables became increasingly difficult. For this reason, the conventions 
discussed in section III of Lapacik (1998) were strictly adhered to. Both file and variable 
name conventions were continued for the Stability and Control module. Switchyard 
Callbacks and Structures greatly assisted in simplifying the flow of the file structure as 
well as making it easier to debug mistakes when they occurred. The Structure capability 
was especially valuable due to the large number of stability and control variables needing 
to be passed among the various M-files. 

C. ARCHITECTURE 

The branch point for the Stability and Control module was previously programmed into 
the Performance module. Selecting Stability and Control on the welcome screen sets a 
switch which after completion of the performance calculation, takes the user to the 
Stability and Control input screens. From there, the GUI and Switchyard functions 
provide the necessary commands, variable creation/change, and execution of the 
additional script and function files to complete the Stability and Control analysis. If the 
Stability and Control option is selected after the performance calculations have been 
made, the user will be taken directly to the stability and control input screeens. 
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V. CONCLUSIONS 



Working with JANRAD 98 version 5.0 has been an enlightening experience. A 
much better understanding of rotor blade performance, effects of cross sectional area on 
power required, and some of the limitations of certain assumptions has been gained. 
Through examination of different airfoils, the importance of rotor blade design geared 
toward an aircraft’s performance envelope have become evident. We find that good rotor 
blade design is a compromise both between high and low-speed flight and between 
advancing and retreating sides of the rotor disk. 

The spanwise airload plots in Appendix D provided a very good proof as to the 
accuracy of the JANRAD 98 version 5.0 output. Using the Scl094r8 and Scl095r8 
meshed rotor blade provided spanwise airload distributions much closer to actual 
distributions than did those of Eccles’ modeled VR-12 blade. Although the plots are 
better, the limitations of JANRAD ’s two dimensional assumptions of flow become 
evident out toward the blade tip. Here the three dimensional flow around the blade’s 
swept tip cause variations that are not modeled in JANRAD. These tip effects are time 
dependent and their greatest influence is on predicting the time history of blade stresses. 

JANRAD 98 version 5.0’s power required numbers were found to be sensitive to 
the helicopter’s equivalent flat plate area. Good performance calculations require that the 
user have a very good idea of actual aircraft flat plate areas for varying flight conditons. 
Once these values were determined accurately for the UH-60A, the power required 
numbers calculated by JANRAD 98 version 5.0 matched those of the test data very well. 
Discrepancies in hover power required values are largely due to the fidelity of predicting 
rotor downwash which depends upon modeling the rotor wake. As was first documented 
by Eccles (1995), there still exists some disparity in JANRAD 98 version 5.0’s power 
required predictions and actual test data at altitudes higher than 8,000 - 10,000 feet. 
Discussions with Sikorsky revealed that the mach number corrections to the airfoil data 
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are not the only source of difference. A breakdown in the assumptions used to calculate 
power required tends to occur at combinations of high altitudes, high gross weight and 
high power settings that can explain these differences. 

Implementation of code to deal with design of compound helicopters revealed two 
interesting phenomena. First, setting the tip path plane angle to some small angle, zero 
being the best, resulted in a significant decrease in rotor drag which allowed for power 
savings when using auxiliary propulsion at high speeds. Second, by removing a large 
percentage of lift from the rotor and placing it on a wing, rotor blade design became even 
more critical. The spanwise thrust distribution was altered which increased the local 
angle of attack seen by blade elements. In order to reach higher speeds, blade twist had 
to be decreased to offset this tendency. 
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VL RECOMMENDATIONS 



Since this thesis covered more than one area, the recommendations section will be 
broken into two specific areas: (1) Performance module recommendations; (2) Stability 
and Control module recommendations. 

A. PERFORMANCE MODULE RECOMMENDATIONS 

Many of the features added to the performance module are the result of recommendations 
made in other JANRAD theses. The following areas are suggested topics for future 
changes to this program. They are: 

(1) The capability to offset the center of gravity from the center of the 
rotor hub during the rotor trimming process. Adding this capability would allow 
JANRAD to be used to: 

(a) Improve the capability to trim for varying horizontal tail 
parameters. 

(b) Explore the effect of center of gravity variations on rotor 
loads. 

(2) Variable inflow at airspeeds above hover but less than 100 knots. 
This would help to more closely predict power required at these airspeeds. Due to 
the rotor wake, actual power required in this range is slightly greater than that 
calculated by JANRAD. Also, it would permit investigating vibrations from 
hover to 100 knots. 

(3) A method of determining angle of attack of the wing on a 
compound helicopter to better model rotor downwash effects. 
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(4) Implement a free wake analysis to better model three dimensional 
and tip effects. 

(5) Implement an interactive screen which diplays Cl and Cd plots vs 
airspeed to allow user to better select best airfoil to meet design requirements, 

Additional recommendations for the Performance module are: 

(1) Make changes to the JANRAD code which calculates the mean 
thrust location. This value, when allowed to wander far away from the 0.7 r/R 
assumed increases computation time and introduces innacuracies into output 
values. 



(2) Incorporate a baseline test case as a diagnostic run. This would 
help validate JANRAD’s code after it has had modifications done or has gone 
unused for an extended period of time. 

(3) Talk to the helicopter manufacturers and government laboratories 
to ensure the input, such as equivalent flat plate area at different flight conditions, 
is accurate. This will pay large benefits in validation studies. 

(4) Continue to use the upgraded capabilities of subsequent 
MATLAB® releases to improve the GUI operations. 

(5) Continue to add airfoils in the C-81 format to the JANRAD library. 

This will increase the different types of helicopters which can be designed. 

(6) Implement some sort of file or directory management to handle the 
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increasing size and complexity of the module as the GUI is made more 
complicated. This will become especially important as the Stability and Control, 
and the Dynamics modules are tied together with the Performance module. 

(7) Integrate the variables for fan-in-tail and notar tail rotor types into 
the aircraft data files. Also add logic code in Trim.m to ensure the proper tail 
rotor calculations are completed. 

(8) Automate compound helicopter parameters to allow for scheduling 
of percent of lift on wing, auxiliary thrust with airspeed, and tip path plane angle 
with airspeed. 

B. STABILITY AND CONTROL MODULE RECOMMENDATIONS 

This thesis involved only a limited amount of work to improve the Stability and 
Control module. The primary input screens were developed and tied into the existing 
code, but no upgraded capabilities were added. As this work is being continued in 
another thesis, the following goals should be of primary emphasis: 

(1) Continue to develop GUI screens for other aspects of the module 
such as stability derivative outputs. Introduce file print capabilities and/or GUI 
screen print capabilities. 

(2) Standardize the variable names between the Performance and the 
Stability and Control modules. -These two modules were developed separately by 
the original authors and duplicate many variable names. 

(3) Develop input data files for different aircraft. Due to the 
complexity of calculating many of the required input variables, work should be 
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done to document several different input files as references. These can be loaded 
and then modified as necessary, reducing the difficulty for the user. 

(4) Examine and expand the output capabilities based upon 
improvements to current MATLAB® versions over older ones. This could include 
improved graphical outputs as well as simulink modeling and simulations. 
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APPENDIX A. JANRAD 98 USER’S GUIDE 



The JANRAD 98 Users Guide is written as a brief introduction to the Joint 
Army/Navy Rotorcraft Analysis and Design computer program. It is intended to explain 
the basic features and operation of the program and assumes a basic knowledge of 
helicopter mechanics and the use of the MATLAB® programming language by The 
MathWorks® Inc. 

A. SYSTEM REQUIREMENTS 

JANRAD 98 requires MATLAB® version 5.0 or MATLAB Student Edition 
version 5.0 or higher. It will not run on any previous versions. JANRAD 98 version 5.0 
will fit on a single 1.44 MB floppy disk and will need that much memory available for 
installation. JANRAD 98 requires only the hardware to support MATLAB® 5. 

B. INSTALLATION 

The recommended installation of JANRAD 98 is accomplished by first creating a 
subdirectory of MATLAB called Janrad98. The entire contents of the JANRAD 98 
floppy disk should be copied into this directory. Include all M-files and .mat files. 
JANRAD 98 will not run without all of the .mat files. 

It is recommended that this new subdirectory be added to the MATLAB 5 search 
path. This procedure will eliminate the need to change the working directory from the 
command line each time JANRAD 98 is run and allows you to work from a floppy disk if 
desired. Adding the subdirectory to the search path is accomplished by selecting File, Set 
Path... from the File menu. Change the current directory to the new Janrad98 
subdirectory by using the Browse button. Then press the Add to Path push button. You 
will then be given the option to save the new path or just use the new path for the active 
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session. It is recommended to save this path. Figure A. 1 shows the MATLAB® Path 
window. 
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Figure A.l. MATLAB 5 Path Window. 



C. STARTING JANRAD 98 

Typing janrad98 (lowercase, one word) at the command line prompt of a current 
MATLAB session starts JANRAD 98. This action will launch the JANRAD 98 welcome 
window shown in Figure A.2. 
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Figure A.2. JANRAD 98 Start Up Window. 



D. USING JANRAD 98 

As an example, the use of this program will be demonstrated by selecting a 
previously saved input data file and changing the weight, airspeed and pressure altitude. 
User defined blade elements and blade twist will be entered. Tail rotor parameters will 
be verified but not changed. The input and output files will be saved and printed. After 
the performance analysis is complete, we will then iterate on airspeed from 80 to 100 
knots in increments of 5 knots. 



First, from Figure A.2, select the Run/Edit Existing File radio button. It is usually 
easier to edit an existing file because Create New File will not give you the chance to 
change the working directory if desired. Once the selection has been made, press the 
Continue » button. 
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Figure A.3. Selecting a File to Edit. 

The next figure window to appear is shown in Figure A.3. This window allows 
you to change the working directory and select an input data file. To change the 
directory, type or edit the desired path in the edit box. All of the .mat files listed in the 
working directory are displayed in the list box. Input data files are saved as filename.mat. 
A note of caution here, each GUI window also has an associated gui filename, mat file. 
The user should name input/output data files using helicopter aircraft designations such 
as UH-60A, h-99 or h-designl to differentiate from JANRAD 98 GUI files. Next, select 
an input file to edit by clicking on the file name. For this example, we will edit the UH- 
60 A. mat file. Then press Continue ». 
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The Performance Input window will be displayed as in Figure A. 4. The input 
data will be displayed within the appropriate edit boxes. Any or all of the parameters can 
be changed at this point without altering the original data file. You will have the 
opportunity to save the new data if you chose after the analysis has been completed. 
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Figure A.4. Performance Input Parameters 



The airspeed, weight and pressure altitude can be edited by highlighting and 
typing 100, 17,000 and 2,000 in the respective edit boxes. Pressing the enter key is not 
necessary to enter the new value. Using the Tab key or clicking on another edit box or 
control will enter any changes. If the user wishes to mesh airfoils, click the Blade Airfoil 
Type scroll bar, and select Airfoil_Mesh. The Begin Mesh at (r/R) box will be enabled 
and a value may be entered. At this point, select both the non-linear blade twist and 
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uneven blade element spacing blocks. Note that the blade twist and number of blade 
element boxes are disabled. The Print Screen button will print a draft copy of the GUI 
window with the displayed values if desired. It however, will not record the file name for 
which the values are stored. Now press the Continue » button. 



From the Performance Input window, JANRAD 98 will call the Compound 
Helicopter and Tail Rotor Parameters window, Figure A. 5. In our example we are 
dealing with a conventional helicopter, therefore no wing or auxiliary thrust is present. 
We do, however, need to verify the tail rotor parameters which have been either loaded 
from the data file or calculated. The parameters will be entered in the appropriate tail 
rotor type. Press OK when ready to continue. 
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Figure A.5. Enter Compound Helicopter and Tail Rotor Parameters 
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With either non-linear blade twist or uneven blade element spacing selected, 
JANRAD 98 will next go to the Blade Element page, shown in Figure A.6. 



This screen is for user defined radial blade elements and/or non-linear fwist. Enter the r/R and/or twist 
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Ensure the final r/R value entered is less than the effective blade radius ratio, the signs for twist are 
correct, and that a twist is entered for each r/R value. Max number of blade elements is twenty. 
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Figure A.6. Enter Uneven Blade Elements & Non-linear Blade Twist 



The grip ratio contained in the loaded data file will automatically be displayed 
along with the effective blade radius. The user can enter up to twenty blade elements and 
the corresponding twists. IMPORTANT! Ensure dimensions are entered to the left 
edge of the blade element from the blade root. JANRAD98 will automatically calculate 
the values at the center of the blade elements. Also, do not enter any value greater than 
the effective blade radius or an error message will appear. After entering the desired 
values press Continue. 



Next, JANRAD 98 will call the Iteration Method window as shown in Figure A. 7. 
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Figure A.7. Iteration Method / Analysis Window. 



JANRAD 98 will call its computational routines from this window. By choosing 
Afo Iteration and Analyze, JANRAD 98 will run the parameters selected from the 
previous window. The Analyze pushbutton initiates the computational routines. All 
controls on the GUI will be disabled except the Interrupt pushbutton. The Analysis 
Status Box will display the performance routine status, clock, iteration number, and 
iteration parameter value as JANRAD trims the rotor and adjusts the collective and cyclic 
mathematically. The Interrupt button will halt the routine and enable the Resume control 
and JANRAD Options menu on the GUI. This will allow the user to change parameters, 
quit or return to beginning. The Resume button will continue with the performance 
routine where it originally interrupted. It is worth noting that the Interrupt button will not 
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always respond immediately. However, once MATLAB finishes its current line 
evaluation, the calculation will pause. 

The Status Box will inform the user when calculations are complete. The 
Performance Output window will be displayed automatically. The Performance Output 
window shown in Figure A. 8 displays the performance results. These results can be 
saved and the screen printed from this window. However, it is recommended to print the 
saved input and output files through the next window. By pressing the Options » push 
button, the saved input and output files can be printed simultaneously and in a more 
usable format. The input/output files can be saved after activating the checkboxes, 
typing a file name and pressing the Save or the Options » push buttons. 




Figure A.8. Performance Output Window. 
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The Options window in Figure A.9 provides the capability to print the latest files, 
go to create plots screens, and eventually, select additional analysis routines. At this time 
however, the Stability and Control and Rotor Dynamics routines have not been 
completed. If selected, you will be reminded of this limitation. 



From here, we will go back to calculate performance parameters by varying 
airspeed. This is done by pressing the Change Iteration Method radio button and the 
Continue » push button. This will go back to Figure A.7. To vary airspeed, press the 
Airspeed radio button and then Analyze. 
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Figure A.9. Options Window. 
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Figure A. 10 shows the Iteration Parameters window. By typing 80, 100 and 5 in 
the appropriate edit boxes and selecting Analyze, the performance routine will calculate 
various performance results with respect to airspeed. Later, the user will be able to create 
plots of many of these output parameters. Note: the Aspect Ratio edit box and HIGE 
check box are only enabled when Altitude Iteration or Wing Span Area is selected. 

Figure A ll shows the Create Plots screen for the Airspeed iteration method. 
Any or all of the plots may be selected. The plots are created and minimized as 
JANRAD automatically recalls the Options window, Figure A.8. Each iteration method 
has its own create plots screen. Some plots require additional user input prior to creating 
them. 



Figure A. 12 shows an example airspeed iteration subplot. These plots are 
primarily used to examine trade off studies during the design process. 




Figure A.10. Iterations Parameter Window. 
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The M-file create_plots.m contains the code for all of the iteration method create 
plot screens. If any additional plots are desired, changes can be made to this file. 
However, the plots should be substituted for those plots already existing, and the existing 
code should be commented out, not removed. Adding plots requires changes to multiple 
files for proper operation and should not normally be attempted. Always document 
changes made to the code for future users. 

E. HINTS FOR JANRAD 98 OPERATIONS 

The following paragraphs list some recommendations for the most efficient use 
of JANRAD 98. They are a guide based on observation, experience and knowledge of 
the code. Any other recommendations should be addressed to the Helicopter Design 
Instructor at the Naval Postgraduate School for implementation into the next version of 
JANRAD 98. 

JANRAD 98 was designed for robust operations. However, because this is the 
first version to utilize a Graphical User Interface, not all cases of user inputs have been 
exercised. If the program appears not to be working properly, quit JANRAD using the 
options menu available on all but the first window. This action will quit JANRAD, close 
all MATLAB figure windows and clear the base workspace. Restart JANRAD by typing 
janrad98 at the command line. 
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Figure A.ll. Example Iteration Method Create Plot Window 



Using azimuth sectors greater than 24 and blade elements greater than 20 will 
increase computation time. The accuracy of the results does not improve a significant 
amount for these larger values. However, if the 3-D plot from the No Iteration create plot 
screen is desired, 72 azimuth sectors will be required to give the proper resolution to the 
plot. 
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Figure A. 12. Example of Airspeed Iteration Output Plot. 



For more accurate results, use VR-12, VR-15, 0012, Scl094r8 or Scl095r8 
airfoils when possible. These airfoils include Mach number inputs for CL and CD 
calculations. The HH-02 does not depend on Mach number. Note: VR-15 and Scl094r8 
airfoils are designed for use at the tips of blades and not for use along the entire blade. 
Faulty results should be expected when using them for that purpose. 

Using the print screen buttons on the performance input or performance output 
windows will take up to several minutes on older processors. Use the Send to Printer 
button on the JANRAD 98 Options page for faster and more compact printer output. 
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APPENDIX B. VARIABLE LIST.M 



This script M-file contains a list of variables used in JANRAD 98 version 5.0. 
The list is broken up into four parts. The first part lists variables used primarily for 
computation and analysis. Then global variables, structure variables and GUI graphic 
handles are listed. 



% This File lists the Variables used in JANRAD 98 Version 5.0 

% Computational Vars. 

% a lift curve slope of rotor system airfoil 
% Adisk area of rotor disk 
% Afh fuselage equivalent flat plate drag area 
% Afv vertical projected area (fuselage area under disk) 

% afoil rotor system airfoil type (HH02/VR12) 

% alpha angle of attack, rotor blade radial segment 
% alphaT rotor tip path plane angle 
% b number of rotor blades 

% B tip loss parameter 

% betao rotor coning angle 
% betat geometric angle, rotor blade radial segment 
% bhoriz span, horizontal tail 
% bvert span, vertical tail 
% bwing span, wing 
% cblade chord, rotor blade 
% CD drag coefficient, rotor blade radial segment 
% CDohoriz profile drag coefficient, horizontal tail 
% CDovert profile drag coefficient, vertical tail 
% CDowing profile drag coefficient, wing 
% CDhoriz drag coefficient, horizontal tail 

% CDvert drag coefficient, vertical tail 

% CDwing drag coefficient, wing 
% CH rotor H-force coefficient 
% CH_sig CH/solidity 

% CL lift coefficient, rotor blade radial segment 
% CLhoriz lift coefficient, horizontal tail 
% CLvert lift coefficient, vertical tail 
% CLwing lift coefficient, wing 
% CON_b Conventional tail rotor# of blades 
% CON_cdo Conventional tail rotor cdO 
% CON_lt Conventional tail rotor moment arm 
% CON_omega Conventional tail rotor speed 
% CON_R conventional tail rotor radius 
% CQ rotor torque coefficient 
% CQ_sig CQ/solidity 
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% CT rotor thrust coefficient 
% CT_sig CT/solidity 

% dD differential drag, rotor blade radial segment 
% ddD differential drag, rotor blade tip 
% ddDM differential drag moment, rotor blade tip 

% ddM differential thrust moment, rotor blade tip 
% ddT differential thrust, rotor blade tip 
% delM change in total thrust moment 
% Dftotal resultant of fuselage drag and aux thrust 
% Dfuse total drag generated by non-rotor bodies 
% DL disk loading 

% dM differential thrust moment, rotor blade radial seg 
% DMpsi total blade drag moment at specific azimuth angle 
% dr rotor blade radial segment width 
% Drotor rotor system drag 

% dT differential thrust, rotor blade radial segment 
% Dhoriz drag, horizontal tail 

% dthetadM change in cyclic pitch with change in thrust moment 
% Dvert drag, vertical tail 
% Dwing drag, wing 
% e effective hinge offset 
% ewing wing efficiency factor 
% filename name of input file 
% filename3 name of file used in plot routines 
% FM figure of merit 

% grip length of inner non-aerodynamic portion of blade 
% GW aircraft gross weight 
% Hrotor rotor H-force 

% lamdaT forward flight induced velocity parameter 
% Lftotal total lift generated by non-rotor bodies 
% Lhoriz lift, horizontal tail 
% Lvert lift, vertical tail 
% Lwing lift, wing 

% Mlc first harmonic (cosine) thrust moment coefficient 
% Mis first harmonic (sine) thrust moment coefficient 
% Machtip Mach number at rotor blade tip 
% mblade mass of rotor blade 

% Mpsi total blade thrust moment at specific azimuth angle 
% mu advance ratio 
% naz number of azimuth sectors 

% nbe number of blade elements 
% omega rotor rotational velocity 
% PA pressure altitude 
% phi inflow angle, rotor blade radial segment 

% phitip inflow angle, rotor blade tip 
% Protor power required by rotor 
% psi azimuth angle 

% q dynamic pressure 

% Qrotor rotor torque 
% r radius, rotor blade radial segment 
% R rotor blade radius 

% Rbar Reff-e 
% RbarT rT*Rbar 
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% Reff effective rotor blade radius (tip loss) 

% rho ambient air density 

% rT location of resultant thrust vector 

% solidity solidity 
% Shoriz area, horizontal tail 
% Svert area, vertical tail 
% Swing area, wing 

% T rotor thrust 

% tailrot value corresponding to type of tail rotor 
% Taux auxiliary thrust 
% temp ambient air temperature 
% theta cyclic pitch 

% thetalc first harmonic (cosine) of cyclic pitch 
% thetals first harmonic (sine) of cyclic pitch 
% thetao collective pitch at .7 r/R 
% Tpsi total blade thrust at specific azimuth angle 
% tr rotor blade taper ratio 
% twist geometric rotor blade twist 
% Up vertical component of velocity 

% Uptip vertical component of velocity at tip 
% Ut horizontal component of velocity 

% Uttip horizontal component of velocity at tip 

% vi induced velocity 

% Vinf forward airspeed 

% Vtip tip speed 

% wblade weight of rotor blade 



% Global Vars. 



% AF_MAIN 
% AF_TTP 
% AR 
% COUNT 



Main airfoil in meshed airfoil 
Tip airfoil in meshed airfoil 
Aspect Ratio 

Counter to determine where Performance Input was 
called 



% FIX_TPP_VAL 
% INTER 
% MAXUM 
% MESH_VAL 
% MESH_STA 
% MINUM 
% NAME 
% NEW_AUX_VAL 
% NEW_r 
% NEW_TPP 
% NL_TWIST 
% NL_T WI ST_ V AL 
% OUT_COUNT 
% PICK 
% PLOTVALS 
% RADSPC_VAL 
% REGIME 



Selected value for setting TPP to defined value 
Iteration Interval 

Iteration End Value 

Selected value when airfoil mesh option chosen 
r/R station where mesh occurs 
Iteration Start Value 
Input .mat file name 

Value of auxiliary thrust 
Vector of user defined blade elements 
Value (rads) TPP is set to for compound helo 
User defined twist vector 
Selected value for non-linear twist 
Used to enable selection of plot routines 
Iteration Method Choice (1-9) 

Values chosen for no iteration plot 
Selected value for non-even blade elements 
Include HIGE Calculations Choice (l=yes, 0=no) 
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% Structure Vars. 



% S_MATR_VEC Matrix/Vector structure 

% S_PERF_INPUT Perf.m input structure 

% S_USER_INPUT User input structure 
% S_FIT_TR_INPUT Fan-In-Tail input structure 

% S_NOTAR_TR_INPUT NOTAR input structure 



% 


Graphics Handle Vars. 


% 


H AF MESH 


Airfoil Mesh List Box 


% 


H AL 


Altitude Iteration Radio Button 


% 


H ALITP# 


Altitude Iteration Plots 


% 


H ANAL 


Analysis Figure Window 


% 


H AS 


Airspeed Iteration Radio Button 


% 


H AS IT P# 


Airspeed Iteration Plots 


% 


H ASPECT 


Aspect Ratio Static Text Box 


% 


HASPECT EDIT Aspect Ratio Edit Text Box 


% 


H BLD EL 


Blade Element Menu Handle 


% 


H BK 


Iteration Method « Back Push Button 


% 


H BT 


Blade Twist Iteration Radio Button 


% 


H_BT IT P# 


Blade Twist Iteration Plots 


% 


H BTR 


Blade Taper Ratio Iteration Radio Button 


% 


H_BTR_IT_P# 


Blade Taper Ratio Iteration Plots 


% 


Hcheckl 


Save Input Data Check box 


% 


H_check2 


Save Output Data Check box 


% 


H check3 


Save Matrix & Vector Data Check box 


% 


H CID 


Change Input Data Radio Button 


% 


H CIM 


Change Iteration Method Radio Button 


% 


H CNF 


Create New Radio Button 


% H datain 


Save Input Data Edit Box 


% 


H dataout 


Save Output Data Edit Box 


% 


H DISK 


Horiz. Tail Under Main Rotor Disk Check Box 


% 


H EJANRAD 


Exit JANRAD Radio Button 


% 


H EREF 


Edit/Run Existing File Radio Button 


% 


H FIX TPP 


Set TPP Check Box 


% 


H GO 


Analyze Push Button 


% 


H GW 


Gross Weight Iteration Radio Button 


% 


H GW IT P# 


Gross Weight Iteration Plots 


% 


H_HIGE 


Iteration Parameters HIGE Check box 


% 


H inputfile 


Input File Static Text box 


% 


H IP 


Iteration Parameters figure window 


% 


H IT BOX 


Iteration Parameters Static Text Box 


% 


H IT METH 


Iteration Method figure window 


% 


H JAN 


JANRAD 98 Figure window 


% 


H LB 


Input File List Box 


% 


H MEN 


JANRAD 98 Options Menu handle 


% 


H MESH 


Mesh Parameters figure window 


% 


H NI 


No Iteration Radio Button 


% 


H NO IT P# 


No Iteration Plots 


% 


H NL TWIST 


Non-linear twist check box 
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% h_opt Performance Output JANRAD Options Menu 

% H_OPTlONS Options Figure Window 

% H_outputfile Output File Static Text box 



% H_P Performace Radio Button 

% H_POP Airfoil List Box 

% H_PERF_IN Performance Input Figure Window 
% H_PERF_OUT Performance Output Figure Window 
% H_PRDA Perform Rotor Dynamics Radio Button 

% H_printin Print Input File Check Box 
% H_printout Print Output File Check Box 
% H_printvec Print Matrix & Vector File Check Box 



% H_PSCA 
% H_RBR_IT_P# 
% H_RBS_IT_P# 
% H_RD 
% H_RES 
% H_RTB 
% H_RUPT 
% H_SAC 
% H_SOT 
% H_SOT_IT_P# 
% H_STATUS 
% H_STATUS1 
% H STATUS2 
% H_STATUS3 



Perform Stability and Control Radio Button 

Rotor Radius Iteration plots 

Rotor Speed Iteration plots 

Rotor Dynamics Radio Button 

Resume Push Button 

Return to Beginning Radio Button 

Interrupt Push Button 

Stability and Control Radio Button 

Start of Taper Iteration Radio Button 

Start of Taper Iteration Plots 

Top Analysis Status Static Text Box 

Middle Analysis Status Static Text Box (Elapsed Time) 

Middle Analysis Status Static Text Box (iteration #) 

Bottom Analysis Status Static Text Box (param value) 



% H_vecdata Save Matrix & Vector Data Edit Box 



% H_vecfile Vector File Static Text box 



% H_WORK Working Directory Edit Box 

% H_WSA Wing Span Area Iteration Radio Button 

% H_WSA_IT_P# Wing Span Area Iteration Plots 
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APPENDIX C. VR-12/VR-15/SC1094R8/SC1095R8 CL AND CD DATA 




Figure C.l. VR-12 Cl Curve, Mach # Dependent 
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Figure C.2. VR-12 Cl Curve 
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Figure C.3. VR-12 Cd Curve, Mach # Dependent 
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Figure C.4. VR-12 Cd Curve 
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Figure C.5. VR-15 Cl Curve, Mach # Dependent 
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Figure C.6. VR-15 Cl Curve 
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Figure C.7. VR-15 Cd Curve, Mach # Dependent 
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Figure C.8. VR-15 Cd Curve 
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Figure C.9. Scl094R8 Cl Curves, Mach # Dependent 
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Figure C.10. Scl094R8 Cl Curve 
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Figure C.11. Scl094R8 Cd Curves, Mach # Dependent 
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Figure C.12. Scl094R8 Cd Curve 
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Figure C.13. Scl095R8 Cl Curve, Mach # Dependent 
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Figure C.14. Scl095R8 Cl Curve 
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Figure C.15. Scl095R8 Cd Curve, Mach # Dependent 
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Figure C.16. Scl095R8 Cd Curve 
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APPENDIX D. AIRLOAD PLOTS 



The following four Airload Plots are with “fish hook” twist model included. 
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Figure D.l. Linear Twist vs. Actual UH-60A Twist, HOGE, *F= 0, 90° 
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Figure D.2. Linear Twist vs. Actual UH-60A Twist, HOGE, *P= 180, 270° 
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Figure D.3. UH-60A Radial Airload Distribution, 115 Knots, *F= 0, 90° 
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Figure D.4. UH-60A Radial Airload Distribution, 115 Knots, V F= 180, 270° 
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Figure D.5. UH-60A Radial Airload Distribution, HOGE, *F= 0, 90° 
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Figure D.6. UH-60A Radial Airload Distribution, HOGE, ¥= 180, 270° 
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Figure D.7. UH-60A Radial Airload Distribution, 65 Knots, *F= 0, 90° 
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Figure D.8. UH-60A Radial Airload Distribution, 65 Knots, 'F= 180, 270° 
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Figure D.9. UH-60A Radial Airload Distribution, 115 Knots, 'F= 0, 90° 
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Figure D.10. UH-60A Radial Airload Distribution, 115 Knots, V P= 180, 270° 
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APPENDIX E. POWER REQUIRED CURVES 




Figure E.l. UH-60A Power Required vs Airspeed, Flight #84 
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Figure E.2. UH-60A Power Required vs Airspeed, Flight #85 
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Figure E.3. UH-60A Power Required vs Airspeed, Flight #88 
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Figure E.4. UH-60A Power Required vs Airspeed, Flight #89 
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APPENDIX F. LIFT AND THRUST COMPARISON PLOTS 
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Figure F.l. UH-60A Radial Thrust Distribution at 115 Kts 
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Figure F.2. UH-60A Radial Lift Distribution at 115 Kts 
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APPENDIX G. JANRAD98.M 



This file launches JANRAD 98 and its Graphical User Interface. It is called by 
typing janrad98 at the MATLAB command line. 



function janrad98() 



% 

% JANRAD98.M 

% Joint Army Navy Rotorcraft Analysis and Design 
% (JANRAD) 

% Version 5.0 

% June 1998 

% Version 1.0 Designers 

% MAJ Bob Nicholson 

% MAJ Walter Wirth 

% Version 2.0 Update Designer 

% LT Dale Feddersen 

% Version 3.0 update Designer 

% LT Dave Eccles 

% Version 3 . 1 update Designer 

% LT Dan Hiatt 

% Version 4.0 update Designer 

% LCDR. Chris F. Lapacik 

% Version 5.0 update Designer 

% LCDR. William L. Hucke 

% Version 5.0 expanded the capabilities of the Graphical User Interface as well as adding new features to 
JANRAD 98. These include, user defined blade elements, airfoil meshing, non-linear blade twist, 
compound helicopter, tail rotor parameters, and output plotroutines for each iteration method. Mach 
number dependent VR12 and VR15airfoil data was also added. Version 5.0 also added the basic Stability 
and Control GUI architecture. 

% Version 4.0 added the Graphical User Interface. The GUI allows the user to create, run, save and print 
files with less effort and greater speed. The basic performance calculation routines remain essentially the 
same as version 3.1. However, the input, output and file structure were modified extensively. Sikorsky H- 
60 airfoil data was also added. 
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% Version 3.1 adds time varying tip loss and the corrected dynamics module. The dynamics module 
provides Southwell plots and rotor blade response in flap and lag motion. Also included is rotor flapping 
stability determination by Floquet analysis. 

% Version 2.0 corrected minor bugs in ver 1 .0 and incorporated 
% Wheatley's Eqn. Additionally the user may now input a 
% tapered rotor blade. Finally a menu was created for 
% ease of performing various iterations and then saving that 
% calculated data for later use/manipulation. 

% This program is an interactive preliminary design tool 
% developed to aid the design student in determination of 
% initial rotorcraft configurations and in the calculation 
% of performance, stability and control, and other parameters. 

% The program will work for conventional or compound rotorcraft. 

% It will provide accurate data for airspeeds less than 10 
% knots and greater than or equal to 50 knots. 



loadjanrad98 

global H_JAN HJEREF H_CNF 

H_JAN = figureCUnits'.'normalized', ... 

'Color',[0.8 0.8 0.8], ... 

'Colormap’,mat0, ... 

'MenuBar'/none', ... 

•Name'/JANRAD 98', ... 

'NumberTitleVoff, ... 

’PointerShapeCData',matl, ... 

r Position',[-0.003 125 0.0625 0.954688 0.8625], ... 

'Tag',Tigl'); 

b = uicontrolCParent',H_JAN, ... 

Units','normalized', ... 

T3ackgroundColor',[0.75294 1 0.752941 0.752941],... 
'FontSize',16, ... 

'FontWeight'.'bold', ... 

'Position', [0.0604396 0.757143 0.434066 0.145714], ... 
'String', 'Welcome to JANRAD 98', ... 

'Style'.'text', ... 

'Tag',' StaticText 1 '); 
b = uicontrol('Parent',H_JAN, ... 

Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Font Weighted', ... 

'Position', [0.0758597 0.617284 0.403226 0.0925926], ... 
'String', 'Joint Army/Navy Rotor Analysis and Design', ... 
•Style','text', ... 

'Tag','StaticText7'); 
b = uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'Position', [0.0593654 0.392157 0.437052 0.0648567], 
'String', Department of Aeronautics & Astronautics', .. 
'FontSize',10, ... 

’FontWeight','bold', ... 

'Style'.'text', ... 

'Tag','StaticText6'); 
b = uicontrol('Parent',H_JAN, ... 

’Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0766 129 0.333333 0.403226 0.0617284], 
'String', 'Naval Postgraduate School', ... 

'FontSize',10, ... 

'FontWeight'.'bold', ... 

'Style', 'text', ... 

'Tag','StaticText5'); 
b = uicontrolCParent',H_JAN, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0766 129 0.271605 0.403226 0.0617284], 
'String', 'Monterey,CA 93940', ... 

'FontSize',10, ... 

'FontWeight’,'bold', ... 

'StyleVtext', ... 

'Tag','StaticText4'); 
b = uicontrol('Parent',H_JAN, ... 

Units','normalized', ... 

■BackgroundColor', [0.7 5294 1 0.752941 0.752941], ... 
'Position', [0.0766129 0.17284 0.403226 0.0771605], . 
'String', 'March 25, 1998',... 

TbntSize',10, ... 

'FontWeight'.’bold', ... 

'StyleVtext', ... 

Tag','StaticText3'); 

H_EREF = uicontrol('Parent',H_JAN, ... 
'Units','normalized', ... 

'Callback', 'janrad98_fcn eref, ... 

D ackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.587992 0.655172 0.275362 0.103448], ... 
'String', Edit/Run Existing File', ... 

'Style', 'radiobutton', ... 

'Tag^’Radiobuttonl', ... 

'Value', 1); 

H CNF = uicontrol('Parent',H_JAN, ... 

'Units', 'normalized', ... 

'Callback','janrad98_fcn cnf, ... 

'BackgroundColor', [0. 7 5294 1 0.752941 0.752941], ... 
'Position', [0.587992 0.514368 0.275362 0.106322], ... 
'String', 'Create New File', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton2'); 
b = uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'Callback', 'janrad98_fcn stop', ... 
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'FontSize', 1 2, ... 

'FontWeight'^old', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.587992 0.295977 0.275362 0.112069], ... 
'String', 'Quit JANRAD 98', ... 

'Tag'.'Pushbuttonl'); 
b = uicontrol('Parent',H_JAN, ... 

'Units', 'normalized', ... 

'Callback','janrad98_fcn cont', ... 

'FontSize', 12, ... 

'FontWeight',*bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.590062 0. 149425 0.273292 0. 112069], ... 
'String', 'Continue »', ... 

'Tag','Pushbutton2'); 
b = uicontrol('Parent',H_JAN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize', 12, ... 

'FontWeight','demi', ... 

'Position',[0.591097 0.793103 0.269151 0.091954], ... 
'String', 'Select Option and Continue', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',H_JAN, ... 

■Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.56 1077 0.445402 0.329193 0.482759], ... 
'Style', 'frame', ... 

'Tag'/Framel'); 

b = uicontrolCParent',H_JAN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0342742 0.570988 0.479839 0.367284], ... 
'Style', 'frame', ... 

'Tag',Trame2'); 

b = uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0348004 0.149321 0.479017 0.3454], ... 
'Style'.'frame', ... 

'Tag', ’Frames'); 

assigninCbase','H_EREF',H_EREF); 

assigninCbase','H_CNF',H_CNF); 
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APPENDIX H. JANRAD98 FCN.M 



Switchyard Callback function called by the janrad98.m GUI function. 



function janrad_fcn( Action) 

% Switchyard Callback function for janrad98.m 
% JANRAD 98 VERSION 5.0 

global H_EREF H_CNF H_JAN NAME COUNT 

cond 1 =get(H_EREF, 'Value'); 
cond2=get(H_CNF,'Value'); 

COUNT=0; 

if nargin, 
switch Action 
case 'cont', 
if condl=l 
analysis 
close (H_JAN) 
else, 

NAME=[]; 
performanceinput 
close (H JAN) 
end 

case 'stop' 
quit_gui 
case 'eref 

set(H_EREF,' Value', 1 ) 
set(H_CNF, 'Value', 0) 
case 'cnf 

set(H_EREF,'Value',0) 
set(H_CNF, 'Value', 1) 
end 
end 
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APPENDIXI. ANALYSIS.M 



This file creates the GUI to select a JANRAD 98 data file and select the analysis 
method. It is called in the janrad98_fcn.m Switchyard Callback function. 



function analysisf) 

% GUI figure window to Select Type Analysis 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load analysis 

global H_P H_SAC H_RD H_ANAL HJLB NAME 

H ANAL = figure('UnitsVnormalized', ... 

’ 'Color', [0.8 0.8 0.8], ... 

'Colormap’,matO, ... 

'Name', 'Analysis', ... 

'NumberTitle','off, ... 

'PointerShapeCData'.matl, ... 

'Position', [-0.003125 0.0625 0.954688 0.8625], ... 

Tag','Fig2’); 

b = uimenuCParent',H_ANAL, ... 

'LabeiyjANRAD Options’, ... 

'Tag','uimenul'); 
c = uimenu('Parent',b, ... 

'Callback', 'analysis_fcn quit', ... 

Taber, 'Quit JANRAD', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenuCParent',b, ... 

'Callback' ,'analysis_fcn return',... 

Tabel', 'Return to Begining', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',b, ... 

'Callback' ,'analysis_fcn delta_input',... 

Tabel', 'Change Input Parameters', ... 

'Tag','Subuimenu 1 '); 
c = uimenu(Tarent',b, ... 

'Callback' ,'analysis_fcn about',... 

'Label', 'About Janrad 98 ...’, ... 

'Separator', 'on',... 
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'TagVSubuimenu 1 '); 
b = uicontrol('Parent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontWeight','bold', ... 

'Position', [0.106033 0.896175 0.332724 0.0546448], ... 

'String', Type Path to Working Directory', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H_WORK = uicontrolCParent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

Tosition',[0. 104205 0.822404 0.330896 0.0546448], ... 

'CreateFcn',",... 

'String' ,pwd,... 

'Horizontal Alignment'.left',. . . 

'Style', 'edit', ... 

'Callback','cd(get(H_WORK,"String"));list=dir("*.mat");str={list.name};set(H_LB,"str",str)',... 
'Tag'.’EditTextl'); 
b = uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

■BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight’.'boId', ... 

'Position',[0. 102377 0.734973 0.340037 0.0628415], ... 

'String','Select Data File', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 

HJLB = uicontrolCParent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.101786 0.355742 0.342857 0.369748], ... 

'String 1 ,", ... 

'CreateFcn','list=dir("*.mat");sti={list.name};set(gcbo,"str",str)', ... 

'Style','listbox', ... 

'Callback','global NAME;Value=get(gcbo,"Value");String=get(gcbo,"String");NAME=String{ Value};', . 
'Tag'.’Listboxl', ... 

'Value', 1); 

b - uicontrol('Parent',H_ANAL, ... 

'Units' ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight', r bold', ... 

'Position',[0.598214 0.815126 0.285714 0.0644258], ... 

'String','Select Type Analysis', ... 

'Style','text', ... 

’Tag','StaticTextr); 

H P = uicontrol('Parent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Callback','analysis_fcn h_p', ... 

'FontSize',12, ... 

'Position', [0 . 5 9 82 1 4 0.672269 0.285714 0.092437], ... 
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'StringVPerformance', ... 

'Style', 'radiobutton', ... 

'TagVRadiobuttonl', ... 

'Value', 1); 

H SAC = uicontrol('Parent’,H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

' Callback', ’analysis_fcn h_sac', ... 

'FontSize',12, ... 

’Position',[0.5982 14 0.540616 0.285714 0.092437], ... 
'StringVStability And Control', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton 1'); 

H_RD = uicontrol('Parent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Callback’,'analysis_fcn h_rd', ... 

'FontSize',12, ... 

'Position',[0.5982 14 0.408964 0.285714 0.0952381], ... 
'StringVRotor Dynamics', ... 

'Style','radiobutton', ... 

'Tag'.Hadiobutton 1 '); 
b = uicontrol( r Parent',H_ANAL, ... 

'Units','normalized', ... 

'Callback’,'analysis_fcn back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.0982 143 0.176 0.210714 0.096], ... 

'String', ’« Back', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_ANAL, ... 

'Units’, 'normalized', ... 

'Callback', 'analysis_fcn cnx',... 

TontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.391071 0.176 0.208929 0.096], ... 
'String'.'Cancel', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'Callback', 'global COUNT;COUNT=0;analysis_fcn cont', . 
'FontSize',12, ... 

'FontWeighCbold', ... 

'Position', [0.678571 0.178667 0.208929 0.'096], ... 
'String','Continue »', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.557143 0.352941 0.355357 0.557423], ... 
'Style',’frame', ... 

'Tag','Framel'); 
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assignin(T5ase', , H_P',H_P); 

assignin('base','H_SAC',H_SAC); 

assigninCbase','H_RD',H_RD); 

assignm('base’,'H_WORK , ,H_WORK); 

assignin('base','H_LB' ) H_LB); 

assignm('caller',’NAME’,NAME) 



APPENDIX J. ANALYSIS FCN.M 



Switchyard Callback function for the analysis.m GUI function. 



function analysis_fcn( Action) 

% Switchyard Callback function for analysis.m 
% JANRAD 98 VERSION 5.0 

global HJP H_SAC H RD H_ANAL 

cond 1 =get(H_P, 'Value') ; 
cond2=get(H_SAC, 'Value'); 
cond3=get(H_RD, 'Value'); 

if nargin, 
switch Action 
case 'h_p' 
set(H_P,' Value', 1) 
set(H_SAC, 'Value', 0) 
set(H_RD, 'Value', 0) 
case 'h_sac' 
set(H_P, 'Value', 0) 
set(H_SAC, 'Value', 1) 
set(H_RD,'Value',0), 
case Ti_rd' 
set(H_P,'Value',0) 
set(H_SAC,'Value',0) 
set(H_RD,'Value',l) 
case 'cont' 
ifcondl=l 
performanceinPut 
close (H_ANAL) 
elseif cond2=l 
stability_and_control 
elseif cond3==l 
rotor_dynamics 
else, 

errorfSomeThing is Wrong in Analysis Function') 
end 

case 'cnx' 
analysis 
close (gcf) 
case 'back' 
janrad98 
close (H_ANAL) 
case 'return' 
janrad98 
close all 
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case ’quit’ 
quit_gui 

case 'delta_input' 
performance_input 
close (H ANAL) 
case 'about' 
aboutjanrad 
end 
end 
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APPENDIX K. PERFORMANCE INPUT.M 



This file creates the GUI that displays the 36 input parameters as loaded from a 
previously saved file or created new by user. It is called in the analysis_fcn.m 
Switchyard Callback function. 



function performance_input() 

% GUI window to display and/or edit input values. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load performance_input 

global COUNT NAME H_PERF_IN SJJSERJNPUT S_PERF_INPUT H_MESH H_POP... 
MESH_STA MESH_VAL AF_MAIN AF_TIP H_RADSPC RADSPCJVAL H_TW H_NL_TWIST ... 
NL_TWIST NL_TWIST_VAL 

switch COUNT 
case 0 

if ~isempty(NAME) 
eval(['load ’.NAME]) 
unstructure 1 
else 

load createnew 
structure 
end 
case 1 

unstructure 1 
end 



H_PERF_IN = figure('Units', 'normalized', ... 

'Color',[0.8 0.8 0.8], ... 

’CreateFcn’, 'global MESH_VAL, MESH_VAL=0;;',... 
'Colormap',matO, ... 

'Name', 'Performance Input Parameters', ... 
'NumberT itle'.'off , ... 

'PointerShapeCData',matl, ... 

'Position', [-0.003 125 0.0625 0.954688 0.8625], ... 
Tag’,’Fig2’); 
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h_opt = uimenu('Parent',H_PERF_IN, ... 

'Label', 'JANRAD Options', ... 

'Tag'/uimenul'); 
c = uimenu('Parent',h_opt, ... 

'Callback', 'performance_input_fcn quit', ... 

'Label', 'Quit JANRAD', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',h_opt, ... 

'CaUback','performance_input_fcn return',. . . 

'Label','Retum to Begining', ... 

'Tag','JANRAD OptionsSubuimenul 1 ); 
c = uimenu('Parent',h_opt, ... 

'CaUback','performance_input_fcn delta_input', . . . 

'Label','Change Input Parameters', ... 

'Enable', 'off,... 

'Tag','Subuimenu 1'); 
c = uimenu('Parent',h_opt, ... 

'Callback', ’performance_input_fcn about',... 

'Label', 'About Janrad 98 ...’, ... 

'Separator',’on',... 

'Tag','Subuimenu T); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0212766 0.92029 0.175123 0.0483092], ... 

'String', 'Pressure Altitude (ft)', ... 

'Style’,'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

Position’,[0.217676 0.922705 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String', PA,... 

'CaUback’,'PA=get(gcbo,"String");S_USER_INPUT.PA=str2num(PA);',... 

'Tag'.'EditTextl’); 

d = uicontrol('Parent',H_PERF_IN, ... 

’Units','normalized', ... 

'BackgroundColor', [0.7 5294 1 0.752941 0.752941], ... 

'Position',[0.02 12766 0.855072 0.175123 0.0483092], ... 

'String', Temperature (deg F)', ... 

•Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol(Tarent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l 1 1], ... 

•Position', [0.217676 0.857488 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String',temp,... 

’CaUback','temp=get(gcbo,"String");S_USER_INPUT.temp=str2num(temp);',... 

’Tag',EditTextl’); 

d = uicontrol(’Parent',H_PERF_IN, ... 



104 



'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0212766 0.792271 0.175123 0.0483092], ... 

'String', 'Airspeed (kts)', ... 

'Style', text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.2 17676 0.792271 0.0981997 0.0483092], ... 

'Style', ’edit’, ... 

'String'.Vinf,... 

’Callback','Vinl=get(gcbo,''String'');S_USER_INPUT.Vinf=str2num(Vinf);',... 

'Tag’.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0212766 0.727053 0.175123 0.0483092], ... 

'String', 'Gross Wt. (lbs.)', ... 

’Style', 'text', ... 

’Tag','StaticText2’); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

TBackgroundColor’,[l 1 1], ... 

'Position', [0.2 17676 0.729469 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String 1 , GW,... 

'Canback','GW=get(gcbo,"String");S_USER_INPUT.GW=str2num(GW);',... 

'Tag'.'EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

■Position’, [0.02 12766 0.661836 0.175123 0.0483092], ... 

'String', *Rotor Vel. (rad/sec)', ... 

'Style',’text', ... 

'Tag','StaticText2'); 
d = uicontrol(Tarent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

■Position', [0.2 17676 0.664251 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String', omega,... 

'Callback', 'omega=get(gcbo,"String");S_USER_INPUT.omega=str2num(omega);',... 
'Tag','EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.02 12766 0.596618 0.173486 0.0483092], ... 

'String', 'No. Azmith Sectors', ... 

'Style', 'text', ... 

’Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 
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'BackgroundColor',[l 1 1], ... 

'Position',[0.217676 0.599034 0.0981997 0.0483092], ... 

'Style', ’edit', ... 

'String', naz,... 

'Callback' ,'naz=get(gcbo,"String");S_USER_INPUT.naz=str2num(naz);',... 
'Tag','EditTextl'); 

d = uicontrolCParent',H_PERF_IN, ... 

'Units','nonnalized', ... 

’BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position',[0.0212766 0.533816 0.175123 0.0483092], ... 

'String','Coll Pitch @ .7 r/R', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

Units', 'nonnalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.217676 0.536232 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String’,thetao,... 

'Callback', 'thetao=get(gcbo,"String");S_USER_INPUT.thetao=str2num(thetao);',... 
'Tag',EditTextl'); 

d = uicontrolCParent',H_PERF_IN, ... 

Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 

Tosition', [0.0212766 0.468599 0.173486 0.0483092], ... 

'String', 'Wing Area (ft A 2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0.217676 0.471014 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String 1 , Swing,... 

'Callback','Swing=get(gcbo,"String");S_USER_INPUT.Swing=str2num(Swing);',... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.02 12766 0.403382 0.173486 0.0483092], ... 

'String', 'Wing Span (ft)', ... 

'StyleVtext', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

Tosition', [0.217676 0.405797 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

' String', bwing,... 

'Callback', 'bwing=get(gcbo, "String");S_USER_INPUT.bwing=str2num(bwing);',... 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

Units', 'normalized', ... 
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'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

’Position’, [0.02 12766 0.34058 0.173486 0.0483092], ... 

'String', 'Expected Wing CL', ... 

'Style'.'text', ... 

'Tag’,'StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [ 1 1 1], ... 

'Position', [0.2 17676 0.342995 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String’,CLwing,... 

'Callback', 'CLwing=get(gcbo,"String");S_USER_INPUT.CLwing=str2num(CLvving);',... 
'Tag',EditText 1 '); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.02 12766 0.275362 0.173486 0.0483092], ... 

'String', 'Wing CDo', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position’,[0.2 17676 0.277778 0.0981997 0.0483092], ... 

'StyleVedit', ... 

’String',CDowing,... 

'Callback', 'CDowing=get(gcbo,"String'');S_USER_INPUT.CDowing=str2num(CDowing);',... 
'Tag',EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.02 12766 0.210145 0.173486 0.0483092], ... 

'String 1 , Elade Twist (deg)', ... 

'Style', 'text', ... 

'Tag’,'StaticText2'); 

H_TW = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.2 17676 0.21256 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String*, twist,... 

'Callback', 'twist=get(gcbo,"String");S_USER_INPUT.twist=str2num(twist);',... 
'Tag',EditTextl'); 

H NL TWIST = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.0562948 0.15083 0.258956 0.0452489], ... 

'StringVSelect for non-linear Blade Twist', ... 

' Value', 0, ... 

'Callback', ['global NL_TWIST ;NL_TWIST=[];',„. 

'if get(gcbo, "Value")==l,'... 

'set(H_TW,'Enable","oflP'),',... 

'else,',... 



107 



'set(H_T W,"Enable","on"),', . . . 

'end,'],... 

'Style', 'checkbox', ... 

'Tag','Checkbox3'); 
d = uicontrol('Parenf,H_PERF_IN, ... 

'Units’,’normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.358429 0.922705 0.173486 0.0483092], ... 

'String','Blade Airfoil Type', ... 

'Style’,'text', ... 

'Tag’,'StaticText2'); 

H_POP = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 

'Position', [0. 5499 1 8 0.922705 0.125 0.0483092], ... 
'String’,’0012|HH-02|VR-12|VR-15|SC1094r8|SC1095r8|Airfoil_Mesh', ... 

'Style', 'popupmenu', ... 

TagVPopupMenul', ... 

'Value',afoU, ... 

'Callback', ['afoil=get(gcbo,"Value");S_USER_INPUT.afoil=afoil;global MESH_STA MESH_VAL,',... 
'if getfgcbo, "Value")==7,',... 

’set(H_MESH,"Enable","on"), MESH_VAL=1 ;',... 

'else,',.. 

'set(H_MESH, "Enable", "off 
'end,']); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.359263 0.855204 0.175026 0.0467572], ... 

'String', 'Begin mesh at (r/R)', ... 

'Style','text', ... 

'TagVStaticText2'); 

H MESH = uicontrolCParent',H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgroimdColor',[l 1 1], ... 

'Position', [0.548618 0.855204 0.09826 0.0482655], ... 

'Style','edit', ... 

'String',MESH_STA,... 

"Enable', 'ofif,... 

'Callback' \ 

'MESH^STA=get(gcbo,"String");',... 

'performance_input_fcn mesh'],... 

’Tag'.’EditTextl’); 

d = uicontrol('Parenf,H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 3 5824 0.791855 0.175026 0.0467572], ... 

'String', 140. Blades', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parenf,H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgroundColor',[ 1 1 1], ... 
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'Position', [0. 5499 18 0.792271 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String',b,... 

, Callback','b=get(gcbo,"String");S_USER_INPUT.b=str2num(b);',... 

'Tag'^ditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.731884 0.175123 0.0483092), ... 

'String', 'Blade Radius (ft.)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0. 5499 1 8 0.729469 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String^... 

’Callback','R=get(gcbo,''String");S_USER_INPUT.R=str2num(R);',... 

'Tag','EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 
r Units','noimalized', ... 

’BackgroundColor',[0.752941 0.752941 0.752941], ... 

•Position', [0.3 58429 0.664251 0.175123 0.0483092], ... 

'String', 'Hinge Offset (ft.)', ... 

'Style', 'text', ... 

’Tag’,’ StaticT ext2’); 
d = uicontrol(’Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

■Position', [0. 5499 1 8 0.664251 0.0981997 0.0483092], ... 

'Style','edit' r ... 

'String’,e,... 

'CaUback','e=get(gcbo,"String'');S_USER_INPUT.e=str2num(e);',... 

'Tag'.’EditTextl'); 

d = uicontrol( r Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.601449 0.175123 0.0483092], ... 

'String', 'Non-Aero Part (ft.)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',! 1 1 1], ... 

'Position', [0.5499 18 0.599034 0.0981997 0.0483092], ... 

'StyleVedit', ... 

'String'.grip,... 

'Callback', 'grip=get(gcbo,"String'');S_USER_INPUT.grip=str2num(grip);',... 
, Tag','EditTextr); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
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'Position', [0.358429 0.538647 0.175123 0.0483092], ... 

'String', 'Blade Root Chd (ft.)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor’,[l 1 1], ... 

'Position', [0.549918 0.536232 0.0981997 0.0483092], ... 

'Style'/edit', ... 

'String 1 , rchord,... 

'Callback','rchord=get(gcbo,"String");S_USER_INPUT.rchord=str2num(rchord);',... 

'Tag'/EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.358429 0.471014 0.173486 0.0483092], ... 

'String', 'Blade Taper Ratio', ... 

’Style','text', ... 

Tag','StaticText2'); 
d = uicontrol(Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.549918 0.471014 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String 1 , tr,... 

'Callback', 'tr=get(gcbo,"String");S_USER_INPUT.tr=str2mun(tr);',... 
'Tag',EditTextl'); 

d = uicontrol(’Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

Position', [0.3 58429 0.405797 0.175123 0.0483092], ... 

'String', Taper Starts @ (r/R)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.549918 0.405797 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String', trst,... 

'Callback', 'trst=get(gcbo,"String");S_USER_INPUT.trst=str2num(trst);',... 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.342995 0.175123 0.0483092], ... 

'String','Wing Eff. Factor - e', ... 

'Style', 'text', ... 

'Tag',' StaticText2') ; 
d = uicontrol(Parent',H_PERF_IN, ... 

■Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.549918 0.342995 0.0981997 0.0483092], ... 
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’Style', 'edit', ... 

'String',ewing,... 

'Callback', 'ewing=get(gcbo,"String");S_USER_INPUT.ewing=str2num(ewing);',... 
'Tag','EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

Units' , 'normalized', ... 

’BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0. 358429 0.280193 0.175123 0.0483092], ... 

'String','Blade Wt-Aero (lbs.)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [ 1 11],... 

'Position', [0. 54 99 1 8 0.277778 0.0981997 0.0483092], ... 

'Style', 'edit', ... 

'String', wblade,... 

'Callback', 'wblade=get(gcbo,"String");S_USER_INPUT.wblade=str2num(wblade);',... 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.21256 0.175123 0.0483092], ... 

'String'.'No. Blade Elements', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_NBE = uicontrolCParent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0. 549918 0.21256 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String' ,nbe,... 

'Enable','on',... 

'Callback', 'nbe=get(gcbo,"String");S_USER_INPUT.nbe=str2niun(nbe);',... 
Tag','EditTextl'); 

H RADSPC = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.33 1627 0.15083 0.320368 0.0467572], ... 

'String', 'Select for uneven radial blade element spacing', ... 

'Value',0, ... 

'Callback',['global NEW_r ;NEW_r= [];',... 

'if get(gcbo, "Value")==l,'... 

'set(H_NBE,"Enable",''off'),’,... 

'else,',... 

'set(H_NBE,"Enable","on"),',... 

'end,'],... 

'Style','checkbox', ... 

Tag','Checkbox2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units'.'normalized', ... 

'BackgroundColor', [0.75 294 1 0.752941 0.752941], ... 

'Position', [0.708291 0.924585 0.172979 0.0482655], ... 
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'String', 'Blade Lift Curve Slope', ... 

'Style'.’text', ... 

'Tag’,'StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.899693 0.927602 0.09826 0.0482655], ... 

'Style'/edit', ... 

’String 1 , a,... 

'Callback' ,’a=get(gcbo,"String'');S_USER_rNPUT.a=str2num(a);',... 
'Tag'.EditTextl'); 

d = uicontrol(Parent',HJPERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.708291 0.855204 0.175026 0.0482655], ... 

'String', 'Auxiliary Thrust (lbs)', ... 

'Style', 'text', ... 

'Tag’,'StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized' , ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.902764 0.856712 0.09826 0.0482655], ... 

'Style'.'edit', ... 

'String 1 ,Taux,... 

'Callback', Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux) 
'Tag',EditText 1 '); 

d = uicontrol(Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',6, ... 

'Position', [0.708291 0.790347 0.174002 0.0482655], ... 

'String', 'Flat Plate Area (ft A 2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

’BackgroundColor',[ 1 1 1], ... 

'Position', [0.902764 0.791855 0.09826 0.0482655], ... 

'Style'.'edit', ... 

'String', Afh,... 

'Callback' , , Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);',... 
'Tag'.EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

EackgroundColor', [0.752941 0.752941 0.752941], ... 

Position', [0.708291 0.726998 0.174002 0.0482655], ... 

'String', 'Vert. Proj Area (ft A 2)', ... 

'Style', 'text', ... 

Tag',' StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.902764 0.728507 0.09826 0.0482655], ... 
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'Style', 'edit', ... 

'String'.AiV,... 

'Callback' ,'Afv=get(gcbo,"Strmg");S_USER_INPUT.Afv=str2num(Afv);',... 
Tag'.'EditTextr); 

d = uicontrol('Parent',H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgToundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.662142 0.175026 0.0482655], ... 

'String', 'Vert. Tail Area (ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.902764 0.66365 0.09826 0.0482655], ... 

'Style'.'edit', ... 

'String'.Svert,.. 

'Callback', 'Svert=get(gcbo,"String");S_USER_INPUT.Svert=str2num(Svert);',... 
'Tag'.'EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.597285 0.175026 0.0482655], ... 

'String', 'Vert Tail Span (ft)', ... 

'Style', 'text', ... 

'Tag’,'StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units'.'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.902764 0.598793 0.09826 0.0482655], ... 

'Style', 'edit', ... 

'String', bvert,... 

'Callback', ’bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);',... 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units'.'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.532428 0.175026 0.0482655], ... 

'String', 'Vert Tail CL', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrolCParent',H_PERF_IN, ... 

'Units'.'normalized', ... 

'BackgroundColor',! 1 1 1], ... 

Tosition', [0.902764 0.535445 0.09826 0.0482655], ... 

'Style'.'edit', ... 

'String', CLvert,... 

'Callback', 'CLvert=get(gcbo,''String");S_USER_INPUT.CLvert=str2num(CLvert) 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units'.'normalized', ... 

•BackgroundColor’, [0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.46908 0.175026 0.0482655], ... 
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'String', 'Vert Tail CDo', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.902764 0.470588 0.09826 0.0482655], ... 

'Style', 'edit', ... 

'String', CDovert,... 

’Callback','CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);',... 

'Tag’.’EditTextl'); 

d = uicontrol('Parent',H_PERF_EN, ... 

'Units', 'normalized', ... 

'BackgroundColor 1 , [0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.404223 0.175026 0.0482655], ... 

'String','Horiz. Tail Area (ft A 2)', ... 

'Style', 'text', ... 

'Tag', 'StaticText2') ; 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.902764 0.405732 0.09826 0.0482655], ... 

'Style','edit', ... 

'String 1 , Shoriz,... 

'Callback', 'Shoriz=get(gcbo,"String");S_USER_INPUT.Shoriz=str2num(Shoriz);',... 
'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.708291 0.339367 0.175026 0.0482655], ... 

'String', 'Horiz. Tail Span (fit)', ... 

'Style', 'text', ... 

Tag','StaticText2'); 
d = uicontrol('Parent’,H_PERF_IN, ... 

Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.902764 0.342383 0.09826 0.0482655], ... 

'Style’,'edit', ... 

’String',bhoriz,... 

'Callback', , bhoriz=get(gcbo,"String");S_USER_INPUT.bhoriz=str2num(bhoriz);',... 
’Tag’,EditTextl’); 

d = uicontrol('Parent',H_PERF_IN, ... 

Units', 'normalized', ... 

■BackgroundColor’, [0.752941 0.752941 0.752941], ... 

■Position', [0.708291 0.276018 0.175026 0.0482655], ... 

'StringVHoriz. Tail CL’, ... 

'Style', 'text', ... 

’Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.902764 0.277526 0.09826 0.0482655], ... 

'Style', 'edit', ... 
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'String 1 , CLhoriz,... 

'Callback 1 , 'CLhoriz=get(gcbo,"String");S_USER_n s IPUT.CLhoriz=str2num(CLhoriz);',... 
'Tag'.EditTextl'); 

d = uicontrol('Parent’,H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor 1 , [0.752941 0.752941 0.752941], ... 

'Position', [0.708291 0.211161 0.175026 0.0482655], ... 

’String 1 , ’Horiz. Tail CDo 1 , ... 

’Style 1 , ’text 1 , ... 

Tag’,’StaticText2'); 
d = uicontrol(’Parent 1 ,H_PERF_IN, ... 

'Units', 'normalized 1 . ... 

'BackgroundColor 1 , [1 1 1], ... 

'Position 1 , [0.902764 0.21 1161 0.09826 0.0482655], ... 

'Style 1 , ’edit 1 , ... 

'String 1 , CDohoriz,... 

'Callback 1 , 'CDohoriz=get(gcbo,"String");S_USER_INPUT.CDohoriz=str2num(CDohoriz);',... 
Tag'.’EditTextl'); 

d = uicontrol(Tarent',H_PERF_IN, ... 

'Units', 'normalized 1 , ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.663 255 0.155354 0.163767 0.0392157], ... 

'String', 'Select Tail Rotor Type', ... 

'Style', 'text', ... 

'TagVStaticTextl 1 ); 

H TR TYPE = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.83521 0.137255 0.158649 0.0558069], ... 

'String', 'Conventional|Fan_In-Tail|Notar', ... 

'Callback',!... 

'if get(H_TR_TYPE, "Value")=l,'... 

'tailrot=l;'... 

'elseif get(H_TR_TYPE, "Value")==2,'... 

'tailrot=2;'... 

'elseif get(H_TR_TYPE, ''Value")==3,'... 

'tailrot=3;'... 

'end,'... 

' S_U SER_INPUT. tailrot=tailrot;'],. .. 

'Style', 'popupmenu', ... 

'Tag','PopupMenu2', ... 

'Value', 1); 

H_DISK = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

■BackgroundColor’, [0.752941 0.752941 0.752941], ... 

'Position',[0.663255 0.0935143 0.268168 0.0482655], ... 

'String', 'Horiz. Tail Under Main Rotor Disk’, ... 

'Style', 'checkbox', ... 

TagVCheckboxl', ... 

'Value',0, ... 

'CreateFcn','taildisk=2;', ... 

'Callback',!... 

'if get(H_DISK, "Value")==l,'... 
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'taildisk=l;'... 

'else,'... 

'taildisk=2;'... 

'end,'... 

'S_USER_INPUT.taildisk=taildisk;']); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'Callback', 'performance_input_fcn back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position’,[0.111566 0.00452489 0.163767 0.081448], ... 

'String', '« Back', ... 

'Tag', 'Pushbutton 1 '); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Callback', 'performance_input_fcn print', . . . 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

'Position’,[0.3 18321 0.00452489 0.163767 0.081448], ... 

'String', 'Print Screen', ... 

'Tag', r Pushbutton2'); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Callback' ,'performance_input_fcn cnx',... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position',[0.525077 0.00452489 0.163767 0.081448], ... 

'String', 'Cancel', ... 

'Tag','Pushbutton3 '); 
d = uicontrol('Parent',H_PERF_IN, ... 

'Units’, 'normalized', ... 

'Callback', [ ... 

'global REGIME PICK S_PERF_INPUT RADSPC_VAL NL_TWIST_VAL,PICK=0;REGIME=0;', . 
' S_PERF_INPUT= S_U SER_INPUT ; RAD SPC_ V AL=0 ; NL_T WI ST_ V AL=0 ;',... 
'performance_input_fcn cont'], ... 

'FontSize',12, ... 

'Font Weight’,' bold', ... 

'Position', [0.733879 0.00452489 0.163767 0.081448], ... 

'String 1 , 'Continue »’, ... 

'Tag', 'Pushbutton^); 

assigninCbase','H_DISK',H_DISK); 

assigninCbase','S_USER_INPUT',S_USER_INPUT); 

assigninCbase','S_PERF_INPUT',S_PERF_INPUT); 

assigninCbase','H_NBE',H_NBE); 

assignm(’base','H_MESH',H_MESH); 

assigninCbase','H_RADSPC',H_RADSPC); 

assignin('base','H_TW',H_TW); 

assigninCbase','H_NL_TWIST',H_NL_TWIST); 

assignin('base','H_TR_TYPE',H_TR_TYPE); 

assigninCbase',’H_POP',H_POP); 
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APPENDIX L. PERFORMANCE INPUT FCN.M 



Switchyard Callback function for the performance_input.m GUI function. 



function performance_input_fcn( Action) 

% Switchyard Callback function for performancejnput. m 
% JANRAD 98 VERSION 5.0 

global H_PERF_EN H_IT_METH S_PERF_INPUT S_USER_INPUT HJBLD_EL H AF MESH 
HRADSPC... 

RADSPC_VAL NEW_r Reff H_NL_TWIST NL_TWIST NL_TWIST_VAL H_COMP_TR ... 
HAUXJEDR NEW_AUX_VAL H_FIX_TPP FIX_TPP_VAL S_FIT_TR_INPUT... 

S_NOT ARTRINPUT AF_MAIN AF_TEP MESH_STA MESH_VAL 

S_USER_INPUT=S_PERF_INPUT ; 
if nargin, 
switch Action 
case 'cont' 

if isempty(getfield(S_PERF_INPUT,'PA')|... 
getfield(S_PERF_INPUT,'temp')| . . . 
getfield(S_PERF_INPUT,' Vinf )| . . . 
getfield(S_PERF_INPUT > 'GW’)|... 
getfield(S_PERF_INPUT > 'omega')|... 
getfield(S_PERF_INPUT,'naz')|... 
getfield(S_PERF_INPUT,'thetao')| .. . 
getfield(S_PERF_INPUT > 'Swing’)|... 
getfield(S_PERF_INPUT,'bwing')|... 
getfield(S_PERF_INPUT,'CLwing’)|. . . 
getfield(S_PERF_rNPUT > 'CDowing , )| . . . 
getfield(S_PERF_INPUT,'ewing')| . . . 
getfield(S_PERFJNPOT,'afoil')|... 
getfield(S_PERF_INPUT > ’a , )|... 
getfield(S_PERF_INPUT, V)|.. . 
getfield(S_PERF_INPUT,'R')| . . . 
getfield(S_PERF_INPUT,'e')|.. . 
getfield(S_PERF_INPUT,'grip')|. . . 
getfield(S_PERF_INPUT,'rchord')| • . 
getfield(S_PERF_INPUT,'tr’) | . . . 
getfield(S_PERF_INPUT,'trst')|. . . 
getfield(S_PERF_INPUT,'twist')|. .. 
getfield(S_PERF_INPUT,'wblade')| . . . 
getfield(S_PERF_INPUT,'nbe , )|... 
getfield(S_PERF_rNPUT,'Taux')|... 
getfield(S_PERF_INPUT,'Afh')|... 
getfield(S_PERF_INPUT,' Afv')|.. . 
getfield(S_PERF_INPUT > , Svert')|... 
getfield(S_PERF_INPUT,'bvert')| .. . 
getfield(S_PERF_INPUT/CLvert')|... 
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getfield(S_PERF_INPUT,'CDovert')|.. . 
getfield(S_PERF_INPUT,'Shoriz')|... 
getfield(S_PERF_INPUT,'bhoriz')|... 
getfield(S_PERF_INPUT, 'CLhoriz') |. . . 
getfield(S_PERF_INPUT,'CDohoriz')); 
empty_boxes 
end 

if get(H_RADSPC, ' Value')== 1 
RADSPC_VAL=1; 
end 

if get(H_NL_TWI ST, 'Value')— 1 
NL_TWIST=1; 
end 

compound_tailrotor 
close (H_PERF_IN) 
case 'cnx' 

performanceinput 
close (gcf) 
case ’back' 
analysis 

close (H_PERF_IN) 
case ’print’ 

set(gcf, r PaperOrientatiori,’landscape’) 
set(gcf,’PaperPositiort’,[.5 .5 10 7.5]) 
print -dwinc 
case ’return’ 
janrad98 
close all 
case ’quit’ 
quit _gui 
case ’about’ 
aboutjanrad 
case ’mesh’ 
airfoil_mesh 
case ’ok’ 

close (H_AF_MESH) 
end 
end 
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APPENDIX M. PERFORMANCE OUTPUT.M 



This file creates the GUI to display the calculated results from a previously saved 
input file or newly created user input. It is call in Perf.m. 



function perfomiance_outputO 

% GUI window to display Janrad performance output. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its childrea Note that handle values may change when these objects 
% are re-created This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load performance_output 

global COUNT H_PERF_OUT S_PERF_OUTPUT S_USER_INPUT H_SAVE ... 
H_datain H_dataout H_vecdata H_checkl H_check2 H_check3 OUT_COUNT 

COUNT=l; 

H PERF OUT = figuref'Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Performance Output', ... 

'NumberTitleVoff, ... 

'PointerShapeCData',matl, ... 

'Position', [-0.003 125 0.05625 0.954688 0.86875], ... 

'Tag', Tig l 1 ); 

b = uimenu('Parent',H_PERF_OUT, ... 

•Label', 'JANRAD Options’, ... 

'Tag'.'uimenul'); 
c = uimenuCParent',b, ... 

'Callback', 'performance_output_fcn quit', ... 

'Label', 'Quit JANRAD’, ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',b, ... 

'Callback', 'performance_output_fcn return',.. . 

'Label', 'Return to Begining', ... 

'Tag', 'JANRAD OptionsSubuimenul 1 ); 
c = uimenuCParent',b, ... 

'Callback', 'performance_output_fcn deltainput',... 

'Label', 'Change Input Parameters', ... 

'Tag','Subuimenu 1 '); 
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c = uimenu('Parent',b, ... 
'CaUback','performance_output_fcn about',... 

'Label', 'About Janrad 98 ...', ... 

'Separator','on',... 

TagVSubuimenul'); 
b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.03 10966 0.925659 0.327332 0.0383693], 
'String', 'Fuselage Drag (lbs.)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized 1 , ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.925659 0.0981997 0.0383693], ... 
'String’,S_PERF_OUTPUT.Dfuse, ... 

'Style', 'text', ... 

TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
TontSize',10, ... 

'Position', [0.03 10966 0.872902 0.327332 0.0383693], 
'String', 'Rotor Drag (lbs.)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.872902 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.Hrotor, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.03 10966 0.817746 0.327332 0.0383693], 
'String'/Wing Lift (lbs.)', ... 

'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.817746 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.Lwing, ... 

'Style', 'text', ... 

'Tag',' StaticText 1'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'FontSize',10, ... 

'Position', [0.03 10966 0.76259 0.327332 0.0383693], .. 
'StringVWing Drag (lbs.)', ... 

'StyleVtext 1 , ... 

'TagVStaticTextl'); 

b = uicontrol(’Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position', [0.376432 0.76259 0.0981997 0.0383693], .. 
'String',S_PERF_OUTPUT.Dwing, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

■BackgroundColor’, [0.752941 0.752941 0.752941], ... 
TontSize',10, ... 

'Position', [0.03 10966 0.709832 0.327332 0.0383693], 
'String','Horizontal Tail Lift (lbs.)', ... 

'Style', 'text', ... 

TagVStaticTextl'); 

b = uicontrolCParent',H_PERF_OUT, ... 
TJnits','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position',[0.376432 0.707434 0.0981997 0.0383693], 
'Stmg',S_PERF_OUTPUT.Lhonz, ... 

'Style', 'text', ... 

'Tag','StaticTextl'); 

b = uicontrolCParent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
TFontSize',10, ... 

*Position',[0.03 10966 0.654676 0.327332 0.0383693], 
’String','Horizontal Tail Drag (lbs.)', ... 

'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

•BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.654676 0.0981997 0.0383693], 
'Style', 'text', ... 

'String', S_PERF_OUTPUT.Dhoriz', ... 
'TagVStaticText T); 

b - mcontrolCParent',H_PERF_OUT, ... 

■Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.03 10966 0.59952 0.327332 0.0383693], .. 
'StringVVertical Tail Lift (lbs.)', ... 

'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'Position',[0.376432 0.59952 0.0981997 0.0383693], .. 
'String', S_PERF_OUTPUT.Lvert, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.03 10966 0.546763 0.327332 0.0383693], 
'String', 'Vertical Tail Drag (lbs.)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'Position', [0.376432 0.546763 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.Dvert, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
TontSize',10, ... 

'Position', [0.03 10966 0.491607 0.327332 0.0383693], 
'String',Tip Path Angle (deg)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.491607 0.0981997 0.0383693], 
’String’,S_PERF_OUTPUT.alphaT, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.03 10966 0.436451 0.327332 0.0383693], 
'String','Rotor Coning Angle (deg)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units' /normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.436451 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.betao, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
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'Position', [0.03 10966 0.383693 0.327332 0.0383693], 
'String', 'Location of Main Thrust (r/R)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent’,H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.376432 0.383693 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.rT2, ... 

'Style','text', ... 

'Tag','StaticText 1 '); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.7 5294 1 0.75294 1 0.752941], ... 
TontSize',10, ... 

'Position’,[0.03 10966 0.328537 0.327332 0.0383693], 
'StringVlst Lat. Cyclic Term - Al', ... 

’Style’,'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent’,H_PERF_OUT, ... 
'Units','normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
’Position’, [0.376432 0.328537 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.thetalc, ... 

’Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.75294 1 0.752941], ... 
'FontSize',10, ... 

•Position', [0.03 10966 0.273381 0.327332 0.0383693], 
'StringVlst Long. Cyclic Term - Bl', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol(’Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.75294 1 0.75294 1 0.752941], ... 
'Position', [0.376432 0.273381 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.thetals, ... 

'Style', 'text', ... 

Tag'/StaticText 1 '); 

b = uicontrol('Parent',H_PERF_OUT, ... 

•Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.'752941], ... 
•FontSize’,10, ... 

’Position’, [0.5 12275 0.923261 0.327332 0.0383693], .. 
’String’, ’Collective Pitch @ .7 r/R (deg)’, ... 
’StyleVtexf, ... 

'TagVStaticTextl'); 

b = uicontrol('Parent’,H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.859247 0.925659 0.0981997 0.0383693], 
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'String', S_PERF_OUTPUT.thetao, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

■Position', [0.5 12275 0.870504 0.327332 0.0383693], . 
'String', 'Solidity (sigma)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

•Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.859247 0.872902 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT. solidity, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.512275 0.815348 0.327332 0.0383693], . 
'String','Disk Loading (lbs. /ft A 2)', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.859247 0.817746 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.DL, ... 

'Style', 'text', ... 

TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
TontSize'.lO, ... 

'Position' [0.512275 0.760192 0.327332 0.0383693], . 
'String', 'Figure of Merit', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = iricontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
■Position', [0.859247 0.76259 0.0981997 0.0383693], . 
'String', S_PERF_OUTPUT.FM, ... 

'Style','text', ... 

TagVStaticText 1 '); 

b = uicontrol(’Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.5 12275 0.707434 0.327332 0.0383693], . 
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'String', 'CT/Sigma', ... 

'Style', 'text', ... 

'Tag'/StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units','normali 2 ed', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position',[0.859247 0.709832 0.0981997 0.0383693], 
'String',S_PERF_OUTPUT.CT_sig, ... 

'Style', 'text', ... 

'Tag'/StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275 0.652278 0.327332 0.0383693], . 
'String', 'CQ/Sigma', ... 

'Style', 'text', ... 

'Tag','StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor',[0. 752941 0.752941 0.752941], ... 
'Position', [0. 85 9247 0.654676 0.0981997 0.0383693], 
'String',S_PERF_OUTPUT.CQ_sig, ... 

'Style', 'text*, ... 

'Tag'/StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.512275 0.597122 0.327332 0.0383693], . 
'String',’CH/Sigma', ... 

'Style', 'text', ... 

'Tag','StaticText 1'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.859247 0.59952 0.0981997 0.0383693], . 
'String', S_PERF_OUTPUT.CH_sig, ... 

'Style', 'text', ... 

'Tag','StaticTextl’); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units’/normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.51 2275 0.544365 0.327332 0.0383693], . 
'String',Tip Mach No. of Advancing Blade', ... 
'Style'/text', ... 

'Tag'/StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units'/normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
■Position', [0.859247 0.546763 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.Machtip, ... 
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'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275 0.489209 0.327332 0.0383693], . 
'String', 'Advance Ratio’, ... 

'Style',’text', ... 

'Tag','StaticText 1'); 

b = uicontrol(Tarent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.859247 0.491607 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.mu, ... 

'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275 0.434053 0.327332 0.0383693], . 
'String', 'Rotor Thrust Required - TPP (lbs.)', ... 

'Style', 'text', ... 

'Tag'.'StaticText 1 ’); 

b = uicontrol(’Parent’,H_PERF_OUT, ... 
'UnitsVnormalized', ... 

'BackgroundColor', [0.752941 0.75294 1 0.752941], ... 
’Position’,[0.859247 0.436451 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.T, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

’Position’,[0.5 12275 0.381295 0.327332 0.0383693], . 
'String','Rotor Power Required (hp)’, ... 

'Style','text', ... 

'TagVStaticTextl'); 

b = uicontrol(Tarent’,H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 859247 0.383693 0.0981997 0.0383693], 
'String', S_PERF_OUTPUT.Protor, ... 

'Style', 'text', ... 

TagVStaticTextl*); 

b = uicontrol('Parent’,H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor’,[0.75294 1 0.752941 0.752941], ... 
'FontSize',10, ... 

’Position',[0.5 12275 0.326139 0.327332 0.0383693], . 
'String', r Rotor Torque (ft. -lbs.)', ... 
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’Style’, 'text', ... 

'TagVStaticText 1 '); 

b = nicontrol('Parent’,H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position', [0.859247 0.328537 0.0981997 0.0383693], 
'String',SJPERF_OUTPUT.Qrotor, ... 

'Style', 'text', ... 

TagVStaticText 1'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.5 12275 0.270983 0.327332 0.0383693], .. 
'String','Auxilliary Thrust (lbs)', ... 

'Style', 'text', ... 

'TagVStaticText 1 '); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

T3ackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position',[0.859247 0.273381 0.0981997 0.0383693], 
'String',S_USER_INPUT.Taux, ... 

'Style','text', ... 

'TagVStaticText 1'); 

H_checkl = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
?osition’,[0.03 10966 0.177458 0.266776 0.0479616], 
'String', 'Save Input Data as ....', ... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_datain = uicontrol('Parent',H_PERF_OUT, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0.302782 0.177458 0.0981997 0.0479616], 
'FontSize',12, ... 

'Style', 'edit', ... 

'String','',... 

'Callback',!... 

'set(gcbo,''String'',get(gcbo, ’’String''));,'... 
'set(H_dataout, ''String'', get(H_datain, "String''));,'... 
'set(H_vecdata,"String",get(H_datain,"String"));,'... 
'set(H_check 1 /’Value", 1);,'... 

'set(H_check2, "Value", 1);,'... 

'set(H_check3,” Value", 1 );,*], ... 

'Horizontal Alignment', 'right',... 

'Tag’.’EditTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.405892 0.179856 0.0981997 0.0479616], 
'Style','text', ... 
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'StringV.mat',... 

'HorizontalAlignment','left',. . . 

'Tag','StaticText2'); 

H_check2 = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.03 10966 0.117506 0.266776 0.0479616], . 
'String', 'Save Output Data as ....', ... 

'Style' ,'checkbox', ... 

'Tag', 'Checkbox 1 '); 

H_dataout = uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position',[0.302782 0.119904 0.0981997 0.0479616], . 
TontSize',12, ... 

'String 1 ,",... 

'Style', 'text', ... 

'HorizontalAlignment','right',... 

'Tag'.'StaticTextl'); 

b - uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0.405892 0.122302 0.0981997 0.0479616], . 
'String','.prf, ... 

'HorizontalAlignment','lefl',. . . 

'Style'.'text', ... 

'Tag','StaticText2'); 

H_check3 = uicontrol(Tarent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
Tosition', [0.03 10966 0,059952 0.266776 0.0479616], . 
'String', 'Save Matrix & Vector Data as ....’, ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_vecdata = uicontrolCParent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 3 02782 0.0623501 0.0981997 0.0479616], 
'FontSize',12, ... 

'Style'.’text', ... 

'HorizontalAlignment'.'right', .. . 

'Tag'.'StaticTextl'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
'Units'.'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.405892 0.0647482 0.0981997 0.0479616], 
’String','_p.mat', ... 

'HorizontalAlignment', 'left',. .. 

'Style'.'text', ... 

'Tag','StaticText2'); 

b = uicontrol('Parent',H_PERF_OUT, ... 
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'Units’, 'normalized', ... 

'FontSize',12, ... 

'FontWeight'^old', ... 

'Position',[0.57283 1 0.146283 0.140753 0.0815348], ... 

'String', '« Back', ... 

Tag', 'Pushbutton 1 ',.. . 

'Callback' ,'performance_output_fcn back'); 
b = uicontrol('Parent',H_PERF_OUT, ... 

'Units','normalized', ... 

'FontSize',12, ... 

'Font Weight', 'bold' , ... 

'Position', [0.749591 0.146283 0.140753 0.0815348], ... 

'String', 'Options »', ... 

TagVPushbuttonl',... 

'Callback', 'global OUT_COUNT,OUT_COUNT=0;performance_output_fcn opt'); 
H SAVE = uicontrol('Parent',H_PERF_OUT, ... 

'Units','normalized', ... 

'Callback', 'performance output fcn save', ... 

'FontSize',12, ... 

'FontWeight', , bold', ... 

'Position', [0.572178 0.0325048 0.14042 0.0803059], ... 

’String’, ’Save’, ... 

’Tag'.'Pushbutton 1 y, 
b = uicontrol('Parent',H_PERF_OUT, ... 

'Callback', 'j3erformance_output_fcn print', . . . 

'Units',’ 'normalized', ... 

'FontSize',12, ... 

'FontWeight’,’bold', ... 

'Position', [0.749344 0.0344168 0.17042 0.0803059], ... 

'String', 'Print Screen', ... 

TagVPushbuttonl'); 

assignin(base','H_datain',H_datain); 

assignm('base',H_dataout',H_dataout); 

assignin(base','H_vecdata',H_vecdata); 

assigninCbase'/H^heckl ',H_check 1 ) ; 

assigninCbase','H_check2',H_check2); 

assignin(base','H_check3 ’,H_check3) ; 

assigninCbase',’H_SAVE',H_SAVE); 
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APPENDIX N. PERFORMANCE OUTPUT FCN.M 



Switchyard Callback function for the performacne_output.m GUI function. 



function performance_output_fcn(Action) 

% Switchyard Callback for performance_output.m 
% JANRAD 98 VERSION 5.0 

global H PERF OUT S_USER_INPUT S_PERF_INPUT S_PERF_OUTPUT S_MATR_VEC... 
Hdatain H_dataout H_vecdata H_checkl H_check2 H_check3 ... 

Houtputfile Hvecfile H_inputfile OUT_COUNT H_SAVE 



if nargin 
switch Action 
case hack' 

close (H_PERF_OUT) 

S_PERF_INPUT=S_USER_ENPUT ; 
iteration_method 
case 'opt' 

if get(H_checkl,'Value')==l 
S_USER_INPUT=S_PERF_ENPUT ; 

S_USER_INPUT.Vinf=S_USER_INPUT.Vinf71 .68781; 
S_USER_INPUT.thetao=S_USER_INPUT.thetao*57.3; 
S_USER_INPUT.twist=-S_USER_INPUT.twist*57.3; 
filenamel=get(H_datain, 'String'); 
eval(['save '.filename 1,' S_USER_INPUT']) 
end 

if get(H_check2,'Value')==l 
filenamel=get(H_datain,'String'); 
eval(['!copy print_templ ', filenamel,'.prf]) 
end 

if get(H_check3,'Value')==l 
unstructure3 

filename2= [filename 1 '_p']; 

eval(['save ',filename2,' Reff r dr psi vi theta betat alpha Tpsi Npsi Mpsi DMpsi dT dN dM dD cblade 
CL CD']); 
end 

options 

set(H_inputfile,'String',[filenamel,'.mat']) 
set(H_outputfile,'String',[get(H_dataout,'String'),'.prf]) 
set(H_vecfile, 'String', [get(H_vecdata,'String'),'_p.mat']) 
close (H_PERF_OUT) 
case 'save' 

set(H_SAVE,'Enable','off) 
if get(H_checkl,'Value')==l 
S_USER_INPUT=S_PERF_INPUT ; 

S_USER_INPUT.Vinf=S_USER_INPUT.Vinf71. 68894444; 
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S_USER_INPUT.thetao=S_USER_INPUT.thetao*57.3; 

S_U SER_INPUT. twist=-S_U SER_INPUT. twist* 57.3; 
filename l=get(H_datain,' 'String'); 
eval(['save filename 1,’ S_USER_INPUT']) 
end 

if get(H_check2,' Value')== 1 
filenamel=get(H_datain, 'String'); 
eval(['!copy print_templ ', filenamel,'.prf]) 
end 

if get(H_check3,'Value')==l 
unstructure3 

filename2=[filenamel '_p']; 

eval(['save ',filename2,' Reff r dr psi vi theta betat alpha Tpsi Npsi Mpsi DMpsi dT dN dM dD cblade 
CL CD']); 
end 

set(H_SAVE,'Enable','ori) 
case 'print' 

set(gcf,'PaperOrientation','landscape') 
set(gcf,’PaperPosition',[.5 .5 10 7.5]) 
print -dwinc 
case 'return' 
close all 
janrad98 
case 'deltainput' 
close (HJPERFOUT) 
performanceinput 
case 'quit' 
quitgui 
case 'about' 
aboutjanrad 
end 
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APPENDIX O. ITERATION METHOD.M 



This file creates GUI to select iteration method and display the status of JANRAD 
98 computations. Status comments are set in Trim.m and Perf.m. When computations 
are complete, this window is closed in Perf.m. 



function iterationmethodO 

% GUI window to select iteration method, start computational routines, 

% and display clock and performance method status. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load iteration_method 

global H_IT_METH H_NI H_AS H_AL H_GW H_BT H BTR H_SOT H_WSA H RBR H RBS ... 
H_STATUS H_STATUS1 H_STATUS2 H_STATUS3 H_RADSPC RADSPC_VAL... 

H_GO H_RUPT H_BK H RES H_MEN r_HOLD... 

COUNT S_USER_INPUT S_PERF_INPUT REGIME PICK ... 

COUNT=l; r_HOLD=l; 

S_USER_INPUT=S_PERF_INPUT; 

H_IT_METH = figure('Units', 'normalized', ... 

'Color 1 , [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name'.'Iteration Method', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

Position', [-0.003125 0.0625 0.954688 0.8625], ... 

'Tag'.’Figl'); 

H MEN = uimenu('Parent',H_IT_METH, ... 

'Label', 'JANRAD Options', ... 

'Tag’,'uimenul'); 
c = uimenuCParent',H_MEN, ... 

'Callback', ’iteration_method_fcn quit', ... 

'Label', 'Quit JANRAD’, ... 

'Tag', 'JANRAD OptionsSubuimenul*); 
c = uimenu(Parent',H_MEN, ... 

'Callback','iteration_method_fcn return',... 

'Label','Retum to Begining', ... 
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'Tag'/JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',H_MEN, ... 
'CaUback','iteration_method_fcn delta_input',.. . 
'Label'/Change Input Parameters', ... 

'Tag'/Subuimenu 1 '); 
c = uimenu('Parent',H_MEN, ... 
'CaUback7iteration_method_fcn about',. . . 

'Label', 'About Janrad 98 ...’, ... 

'Separator', 'on',... 

'Tag'/Subuimenu I '); 
f = uicontrol('Parent',H_IT_METH, ... 

'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

, FontWeight’,'bold’, ... 

'Position', [0.07857 1 4 0.864 0.333333 0.0533333], ... 
'String'/Choose Iteration Method', ... 

'Style', 'text', ... 

'Tag'/StaticTextl'); 

H_NI = ui control! 'Parent', H_IT_METH, ... 

'Callback', 'iteration_method_fcn h_ni',.. . 

'Value',1,... 

'Units'.'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0.0839304 0.730015 0.333675 0.0527903], 
'String','No Iteration', ... 

'Style', 'radiobutton', ... 

'Tag’,'Radiobutton 1 '); 

H_AS = uicontrolCParent',H_IT_METH, ... 

'Callback' ,' iteration_method_fcn h_as’, . . . 
'Units'/normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.0839304 0.671192 0.333675 0.0527903], 
'String',' Airspeed', ... 

'Style'/radiobutton', ... 

'Tag','Radiobutton2'); 

H AL = uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcn h_al',. . . 

Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0.0839304 0.61086 0.333675 0.0527903], .. 
'String', 'Altitude', ... 

'Style', 'radiobutton', ... 

'Tag', Hadiobutton3 ') ; 

H_GW = uicontrol(Tarent',H_IT_METH, ... 
'Callback','iteration_method_fcnh_gw',... 

Units' /normalized', ... 

'BackgroundColor',[0. 752941 0.752941 0.752941], ... 
■FontSize',12, ... 

'Position', [0.0839304 0.550528 0.333675 0.0527903], 
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'StringVGross Weight', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton4'); 

H_BT = uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcn h_bt',. . . 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.0839304 0.488688 0.333675 0.0542986], 
'String', 'Blade Twist', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton5'); 

H_BTR = uicontrol('Parent',H_IT_METH, ... 

'Callback' ,'iteration_method_fcn h_btr', . . . 
TJnits','normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.0839304 0.426848 0.333675 0.0542986], 
'String', 'Blade Taper Ratio', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton6'); 

HSOT = uicontrol('Parent',H_IT_METH, ... 

'Callback', 'iterationmethodfcn hsot',.. . 

Units', 'normalized', ... 

•BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0.0839304 0.365008 0.333675 0.0542986], 
'String', 'Start of Taper', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton7'); 

H_WSA = uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcn h_wsa',. . . 

Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0. 0839304 0.303167 0.333675 0.0542986], 
'String', 'Wing Span Area', ... 

'Style','radiobutton', ... 

Tag','Radiobutton9'); 

H_RBR = uicontrol(Tarent',H_IT_METH, ... 
'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Callback','iteration_method_fcn h_rbr’, ... 
'FontSize',12, ... 

'Position', [0.0839304 0.242836 0.333675 0.0527903], 
'String', 'Main Rotor Blade Radius', ... 

'Style', 'radiobutton', ... 

'Tag','RadiobuttonlO'); . 

H RBS = uicontrol('Parent',H_IT_METH, ... 
'Units','normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Callback','iteration_method_fcn h_rbs', ... 
TontSize',12, ... 
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'Position', [0.0839304 0.182504 0.333675 0.0527903], 
'String', 'Main Rotor Speed', ... 

'Style', 'radiobutton', ... 

'Tag', 'Radiobutton 1 1'); 
f = uicontrol('Parent',H_IT_METH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize’,12, ... 

'FontWeight',lx)ld', ... 

'Position', [0.482 143 0.866667 0.439286 0.0533333], .. 
'String', 'Analysis Status Box', ... 

'Style', 'text', ... 

'Tag'.'StaticTextl'); 

H_STATUS = uicontrolCParent',H_IT_METH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.48 1576 0.690799 0.439099 0.135747], ... 
'Style','text', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'HorizontalAlignment','center',... 

'String 1 ,",... 

'Tag','StaticText2'); 

H STATUS1 = uicontrolCParent’,H_IT_METH, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.483 1 1 2 0.532428 0.436029 0.140271], ... 
'Style’,’text', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'HorizontalAlignment','center',. . . 

’String 1 ,",... 

'Tag','StaticText3'); 

H_STATUS2 = uicontrol(Tarent',H_IT_METH, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.484 1 3 5 0.360483 0.433982 0.15083], ... 
’Style’,'text', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

HorizontalAlignment','center',... 

'String 1 ,",... 

'Tag','StaticText4'); 

H_STATUS3 = uicontrolCParent',H_IT_METH, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.483623 0.18552 0.435005 0.152338], ... 
'Style', 'text', ... 

•FontSize',12, ... 

•FontWeight','bold', ... 

'Horizontal Alignment','center',. . . 

'String-,'',... 

Tag','StaticText5'); 
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H_BK = uicontrol('Parent',H_IT_METH, ... 

'Units', 'normalized', ... 

'Callback','iteration_method_fcn back', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.0767857 0.064 0.178571 0.072], ... 

'String', ’« Back', ... 

'Tag', 'Pushbutton 1 '); 

H_GO = ui co ntro 1 ('Parent' , H_IT_METH, ... 

'Units’, 'normalized', ... 

'Callback', 'global PERF_OUTPUT;REGIME=0,iteration_method_fcn anal', ... 
'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.301786 0.0613333 0.178571 0.072], ... 

'String', 'Analyze', ... 

'Tag','Pushbutton2'); 

H RUPT = uicontrol('Parent',H_IT_METH, ... 

'Callback', 'iteration_method_fcn interrupt',.. . 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.528571 0.0613333 0.178571 0.072], ... 

'String', 'Interrupt', ... 

■Enable', 'off,... 

'Tag','Pushbutton3'); 

H_RES = uicontrol('Parent',H_IT_METH, ... 

'Callback', 'iteration_method_fcn resume',.. . 

'Units', 'normalized', ... 

'FontSize',12, ... 

TontWeight'.bold', ... 

'Position', [0.755357 0.0613333 0.178571 0.072], ... 

' String 1 , Eesiune', ... 

EnableVoff,... 

'Tag', r Pushbutton4'); 
f = uicontrolCParent',H_IT_METH, ... 

'Units', 'normalized', ... 

EackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0655067 0.173454 0.37564 0.769231], ... 

'Style','frame', ... 

'Tag','Framel'); 

f = uicontrol('Parent',H_IT_METH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.476786 0.176 0.45 0.768], ... 

'Style', 'frame', ... 

'Tag','Frame2'); 

assigninCbase','H_NI',H_NI); 

assigninCbase','H_AS',H_AS); 

assigninCbase','H_AL',H_AL); 

assigninCbase’,'H_GW',H_GW); 

assignin(’base','H_BT',H_BT); 

assigninCbase','H_BTR',H_BTR); 
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assigninCbase',’H_SOT',H_SOT); 

assignin('base7H_WSA’,H_WSA); 

assignin('base','H_RBR’,H_RBR); 

assigninCbase‘,'H_RBS',H_RB S); 

assigninCbase’,'H_GO’,H_GO); 

assignin('base , , , H_RUPT , > H_RUPT); 

assignin('base , , , H_BK , ) H_BK); 

assignin('base , ,’H_RES’,H_RES); 

assignin('base , ,’H_MEN , ,H_MEN); 



APPENDIX P. ITERATION METHOD FCN.M 



Switchyard Callback function for the iteration method.m GUI function. 



function iteration_method_fcn(Action) 

% Switchyard Callback for iteration_method.m 

% JANRAD 98 VERSION 5.0 

global H_IT_METH H_N1 H_AS H_AL H_GW H_BT H BTR H_SOT H_WSA H RBR H RBS ... 
H_STATUS H_STATUS1 H_STATUS2 H_STATUS3 NEW_r HMESH HJPOP... 

H_GO H_BK H_RES H_RUPT H_MEN RADSPC_VAL H_RADSPC... 

HHIGE HITBOX H_ASPECT HASPECTEDIT H_NL_TWIST NL_TWIST NL_TWIST_VAL... 
S_PERF_INPUT SJJSERJNPUT S_PERF_OUTPUT PICK REGIME H MESH MESH_VAL... 
MESH_STA AF_MAIN AF_TIP NEW_TPP NEW_AUX_VAL H_FIX_TPP... 

H_AUX_E_DR S_FIT_TR_INPUT S_NOTAR_TR_INPUT FIX_TPP_VAL 

if nargin, 
switch Action 
case 'h_ni' 

set (H_NI,' Value', 1 ) 
set(H_AS, 'Value' ,0) 
set(H_AL, 'Value', 0) 
set(H_GW, 'Value', 0) 
set(H_BT, 'Value', 0) 
set(H_BTR, 'Value', 0) 
set(H_SOT, 'Value', 0) 
set(H_WSA, 'Value', 0) 
set(H_RBR,'Value',0) 
set(H_RBS, 'Value', 0) 

PICK=0; 
case 'h_as' 

set(H_NI, 'Value', 0) 
set(H_AS, ' Value', 1) 
set(H_AL,'Value',0) 
set(H_GW, 'Value', 0) 
set(H_BT, 'Value', 0) 
set(H_BTR, 'Value', 0) 
set(H_SOT, 'Value', 0) 
set(H_WSA, 'Value', 0) 
set(H_RBR, 'Value', 0) 
set(H_RBS, 'Value', 0) 

PICK=1; 
case 'h_al' 

set(H_NI,'Value',0) 

set(H_AS,'Value',0) 

set(H_AL,'Value',l) 

set(H_GW,'Value',0) 

set(H_BT,'Value',0) 

set(H_BTR,'Value',0) 
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set(H_SOT,’Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS, 'Value', 0) 
PICK=2; 
case'h _gw' 

set(H_NI,'Value’,0) 
set(H_AS,'Value',0) 
set(H_AL, 'Value', 0) 
set(H_GW,’Value’,l) 
set(H_BT,'Value',0) 
set(HJBTR,'Value',0) 
set(H_SOT, 'Value', 0) 
set(H_WSA, 'Value', 0) 
set(H_RBR,'Value',0) 
set(H_RBS,' Value', 0) 
PICK=3; 
case ’h_bt' 

set(H_NI,'Value’,0) 
set(H_AS, 'Value', 0) 
set(H_AL, 'Value', 0) 
set(H_GW, 'Value', 0) 
set(H_BT, 'Value', 1 ) 
set(H_BTR,'Value',0) 
set(H_SOT, 'Value', 0) 
set(H_WSA,'Value’,0) 
set(H_RBR,'Value',0) 
set(H_RBS, 'Value', 0) 
PICK=4; 
case 'h-btf 

set(H_NI,'Value',0) 
set(H_AS, 'Value', 0) 
set(H_AL, 'Value', 0) 
set(H_GW,'Value',0) 
set(H_BT, 'Value', 0) 
set(H_BTR,' Value', 1 ) 
set(H_SOT, 'Value', 0) 
set(H_WSA, 'Value', 0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value’,0) 
PICK=5; 
case *h_sot' 

set(H_NI, 'Value', 0) 
set(H_AS,'Value',0) 
set(H_AL, 'Value', 0) 
set(H_GW, 'Value', 0) 
set(H_BT, 'Value', 0) 
set(H_BTR,'Value',0) 
set(H_SOT, 'Value', 1) 
set(H_WSA,'Value',0) 
set(H_RBR,’Value',0) 
set(H_RBS,'Value',0) 
PICK=6; 



case 'hwsa' 
set(H_NI, 'Value', 0) 
set(H_AS, 'Value', 0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT, 'Value', 0) 
set(H_BTR,'Value',0) 
set(H_SOT, 'Value', 0) 
set(H_WSA,’Value',l) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value’,0) 
PICK=7; 
case 'h_rbr' 

set(H_Nl, 'Value', 0) 
set(H_AS, 'Value', 0) 
set(H_AL, 'Value', 0) 
set(H_GW, 'Value', 0) 
set(H_BT, 'Value', 0) 
set(H_BTR, 'Value', 0) 
set(H_SOT, 'Value', 0) 
set(H_WSA, 'Value', 0) 
set(H_RBR, 'Value', 1) 
set(H_RBS,'Value',0) 
PICK=8; 
case 'h_rbs' 

set(H_NI,'Value',0) 
set(H_AS, 'Value', 0) 
set(H_AL,'Value',0) 
set(H_GW, 'Value', 0) 
set(H_BT,'Value',0) 
set(H_BTR, 'Value', 0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(HJRBR, 'Value', 0) 
set(H_RBS, 'Value', 1 ) 
PICK=9; 
case 'back' 

if RADSPC_VAL== 1 
close (H_IT_METH) 
blade_element 
else perfonnance_mput 
if get(H_POP,'Value')=7 
set(H_MESH, 'Enable', 'on') 
MESH_VAL=1; 
end 

close (H IT METH) 
end 

case 'anal' 

set(H_GO, 'Enable', 'off) ; 
set(H_RUPT, Enabl e','on') ; 
set(H_BK,'Enable','off); 
set(H_RES,'Enable','off); 
set(H_MEN, 'Enable', ’off); 



if get(H_NI,'Value')==l 
Perf 

elseif get(H_AS,'Value')==l 
iteration_parameters 
set(H_rr_BOX,'String',' AIRSPEED') 
elseif get(H_AL,'Value')=l 
iteration_parameters 
set(H_IT_BOX, 'String',' ALTITUDE') 
elseif get(H_GW,'Value')== 1 
iteration_parameters 

if S_PERF_INPUT.PA==0&S_PERF_INPUT. Vinf=0 
set(H_HIGE,'Enable','on') 
end 

set(H_IT_BOX,'String', 'GROSS WEIGHT') 
elseif get(H_BT,’Value')==l 
iteration_parameters 

set(H_IT_B0X,'String7BLADE TWIST) 
elseif get(H_BTR ' Value')= 1 
iteration_parameters 

set(H_rT_BOX > 'String', 'BLADE TAPER RATIO 1 ) 
elseif get(H_SOT,'Value')=l 
iteration_parameters 

set(H_IT_BOX,'String','START OF TAPER') 
elseif get(H_WSA,'Value')= 1 
iteration_parameters 

set(H_IT_BOX,'String7WING SPAN AREA') 
set(H_ASPECT,Enable','on') 
set(H_ASPECT_EDIT,Enable','on') 
elseif get(H_RBR,'Value')==l 
iteration_parameters 

set(Hjnr_BOX,'String', 'ROTOR BLADE RADIUS') 
elseif get(H_RBS,'Value')=l 
iteration_parameters 

set(H_IT_BOX,'String', 'ROTOR BLADE SPEED (RAD/SEC)') 
end 

case 'interrupt' 
set(H_GO,'Enable','ofF); 
set(H_RUPT, -Enable', ’off); 
set(H_BK,'Enable','off); 
set(H_RES,'Enable','on'); 
set(H_MEN, 'Enable', 'on'); 
uiwait; 
case 'resume' 
set(H_GO, 'Enable', ’off); 
set(H_RUPT, Enable', 'on'); 
set(H_BK,'Enable','ofF); 
set(H_RES,'Enable','off); 
set(H_MEN,'Enable','off); 
uiresume; 
case 'quit' 
quit_gui 
case 'return' 
close (H_IT_METH) 
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janrad98 
case 'deltainput' 
close (H_IT_METH) 
performancejnput 
case 'about' 
aboutjanrad 
end 
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APPENDIX Q. ITERATION_PARAMETERS.M 



This file creates GUI to enter iteration parameters. It is called by the Switchyard 
Callback function iteration method fcn.m. 



function iteration_parameters() 

% GUI window to enter iterative steps. 

% JANRAD 98 VERSION 4.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its childrea Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

function iteration_parameters() 

% GUI window to enter iterative steps. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load iteration_parameters 

global H IP H_HIGE H_IT_BOX H_ASPECT H_ASPECT_EDIT H_MEN H_MINUM H_MAXUM AR 



H IP = figure('UnitsVnormalized', ... 

” 'Color', [0.8 0.8 0.8],... 

'Colormap',mat0, ... 

*Name', 'Iteration Parameters', ... 
'NumberTitle','off, ... 

'PoINTERShapeCData', mat 1 , ... 

'Position', [0.04375 0.0895833 0.875 0.78125], ... 
•TagVFigl'); 

b = uimenuCParent',H_IP, ... 

'Label', 'JANRAD Options', ... 

'TagVuimenul'); 
c = uimenu('Parent',b, ... 

'Callback','iteration_parameters_fcn quit', ... 
r Label','Quit JANRAD', ... 

'TagVJANRAD OptionsSubuimenul 1 ); 
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c = uimenu('Parent',b, ... 

'Callback', 'iteration_parameters_fcn return', ... 

'LabelVRetum to Begining', ... 

'Tag'/JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',b, ... 

'Callbackyiteration_parajneters_fcn delta_input', ... 

'Label', 'Change Input Parameters', ... 

'Tag','Subuimenu 1 ’); 
c = uimenu('Parent',b, ... 

'Callback', 'about_janrad', ... 

'Label', 'About Janrad 98 ...', ... 

'Separator', 'on', ... 

'Tag'.'Subuimenu 1 '); 
b = uicontrol('Parent’,H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'FontWeight’,'bold', ... 

'Position', [0.2607 1 4 0.888 0.476786 0.0533333], ... 

'String', 'Performance Analysis', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

H_IT_BOX = uicontrol('Parent’,H_IP, ... 

'Units','normalized', ... 

'FontSize',12, ... 

’FontWeight’,'bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.2607 14 0.824 0.476786 0.0533333], ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.2625 0.705778 0.357143 0.0533333], ... 

'String','Start Iteration at :', ... 

’Style',’text', ... 

'TagVStaticTextl’); 

H_M3NUM = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

•Position', [0.625 0.704 0.107143 0.0533333], ... 

'Style','edit', ... 

'Callback',['global MINUM;MINUM=str2num(get(gcbo, ''String''));', 
'if get(H_AL," Value")== 1 &str2num(get(gcbo,"String''))==0|', 
'get(H_AS,"Value'')==l&str2num(get(gcbo,"String"))==0,',... 
'set(H_fflGE,"Enable","on"),end, '],... 

Tag'.EditTextl'); 
b = uicontrol('Parent',H_IP, ... 

Units', ’normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.2625 0.634667 0.357143 0.0533333], ... 

'String', 'End Iteration at :', ... 

'Style', 'text', ... 

'Tag','StaticT ext 1'); 

H_MAXUM = uicontrol('Parent’,H_IP, ... 
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'Units','normaIized', ... 

'BackgroundColor',[l 1 1], ... 

'Position',[0.625 0.634667 0.107143 0.0533333], ... 

'Style','edit', ... 

'Callback', 'global MAXUM;MAXUM=str2num(get(gcbo,"String"));',... 
'Tag'^ditTextl'); 
b = uicontrol('Parent',H_IP, ... 

'Units','normalized', ... 

'BackgioimdColor', [0. 75294 1 0.752941 0.752941], ... 

'Position', [0.2625 0.563556 0.357143 0.0533333], ... 

'String', 'Iteration Interval :', ... 

'Style','text', ... 

'Tag','StaticTextl '); 
b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.625 0.562667 0.107143 0.0533333], ... 

'Style', 'edit', ... 

'Callback','global INTER;INTER=str2num(get(gcbo, "String''));',... 
'Tag'.'EditTextl'); 

H_ASPECT = uicontrol('Parent’,H_IP, ... 

'Units','normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 
'Position',[0.2625 0.492444 0.355357 0.0533333], ... 

'String', 'Aspect Ratio :', ... 

'Style', 'text', ... 

'Enable', 'off ,.. . 

'TagVStaticTextl'); 

H_ASPECT_EDIT = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.625 0.490667 0.107143 0.0533333], ... 

'StyleVedit', ... 

Enable’,'off,... 

’Callback','global AR; AR=str2num(get(gcbo,"String"));',.. . 
'Tag',EditTextl'); 

H_HIGE = uicontrol('Parenf,H_IP, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Enable', 'off, ... 

'Position', [0.2625 0.421333 0.358929 0.0533333], ... 

'String', 'Include HIGE Calculations?', ... 

'Style', 'checkbox', ... 

'Value',0,... 

'Callback', 'if get(gcbo,"Value")=l,REGIME=l;else,REGIME=0;,end',... 
'TagVCheckboxl'); 
b = uicontrol('Parenf,H_IP, ... 

'Units','normalized', ... 

'Callback’,'iteration_parameters_fcn back', ... 

'FontSize',12, ... 

'Font Weight', 'bold', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position',[0. 260714 0.245333 0.196429 0.0986667], ... 

'String','« BACK', ... 

'Tag', 'Pushbuttonl'); 
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b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'CallbackViteration_parameters_fcn anal', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.542857 0.245333 0.196429 0.0986667], ... 

'String', 'Analyze »', ... 

'Tag'/Pushbuttonl'); 
b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight', 'bold', ... 

'Position', [0.180357 0.088 0.646429 0.106667], ... 

'String', 'Warning - Exessive Iteration Limits May Increase Processing Times!', . 
'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.176786 0.0746667 0.655357 0.125333], ... 

'Style', 'frame', ... 

'Tag', -Framer); 
b = uicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.253571 0.810667 0.498214 0.146667], ... 

'Style', 'frame', ... 

Tag','Frame2'); 

assigninCbase','H_fflGE',H_fflGE) 
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APPENDIX R. ITERATION PARAMETERS FCN.M 



Switchyard Callback function for iteration_parameters.m GUI function. 



function iteration_parameters_fcn(Action) 

% Switchyard Callback for iteration_parameters.m 
% JANRAD 98 VERSION 5.0 

global H IT METH HJP H_NI H_AS H AL H_GW H_BT H BTR H_SOT H_WSA H RBR H RBS 
H_HIGE ... 

H_GO H_BK H RES H_RUPT H_MEN H_STATUS H_STATUS1 H_STATUS2 H_STATUS3 AR... 
S_USER_INPUT PICK MINUM MAXUM INTER REGIME MESH_VAL MESH_STA AF_MAIN 
AFTIP... 

NEW TPP NEW_AUX_VAL H_FIX_TPP FIX_TPP_VAL S_FIT_TR_INPUT 
S_NOT AR_TR_INPUT. . . 

NEW_r NL_TWIST NL_TWIST_VAL 

if nargin, 
switch Action 
case 'back' 

set(H_BK,'Enable','on'); 
set(H_GO, 'Enable', 'on'); 
set(H_RUPT, Enable', ’off); 
set(H_RES,’Enable','off); 
set(H_MEN, 'Enable', 'on'); 
close(H_IP) 
case 'anal' 

set(H_BK,'Enable','off); 
set(H_GO, 'Enable', ’off); 
set(H_RUPT, Enable’, 'on'); 
set(H_RES, 'Enable', ’off); 
set(H_MEN, 'Enable', 'off); 
close(H_IP) 

Perf 

case 'quit' 
quit_gui 
case 'return' 
janrad98 
close(H_EP) 
close (H_IT_METH) 
case 'delta_input' 
performanceinput 
close (H_EP) 
close (H_IT_METH) 
case 'about' 
aboutjanrad 
end 
end 
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APPENDIX S. OPTIONS.M 



This file creates the GUI to select additional analysis methods and print input and 
output files saved from the performance output window. 



function optionsO 

% GUI window to Select user options at end of performance routine. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load options 

global H OPTIONS H_PSCA H PRDA H_CIM H_CID H RTB H_EJANRAD NAME ... 
Hdatain Hdataout Hvecdata ... 

H_printin H_printout H_printvec ... 

H inputfile H outputfile H_vecfile ... 

H_checkl H_check2 H_check3 filename3 OUT COUNT 

H_OPTIONS = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Options', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData’.matl, ... 

'Position', [-0.003 125 0.0625 0.954688 0.8625], ... 

'Tag', 'Fig 1’); 

b = uimenu('Parent',H_OPTIONS, ... 

'Label', 'JANRAD Options', ... 

'Tag’,’uimenul'); 
c = uimenuCParent',b, ... 

'Callback', 'options_fcn quit', ... 

'Label', 'Quit JANRAD', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parenf,b, ... 

'Callback' ,'options_fcn return',... 

'Label', 'Return to Begining', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',b, ... 

'Callback' ,'options_fcn deltainput', ... 
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'Label', 'Change Input Parameters', ... 

'Tag','Subuimenu 1 '); 
c = uimenu('Parent',b, ... 

'Callback', 'options_fcn about',... 

'Label', 'About Janrad 98 ...', ... 

'Separator', 'on',... 

'Tag','Subuimenu 1'); 
b = uicontrol(Tarent',H_OPTIONS, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',16, ... 

'FontWeight','bold', ... 

'Position', [0.0715631 0.808 0.378531 0.109333], ... 
'String', 'Select Option', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

H_PSCA = uicontrol('Parent',H_OPTIONS,... 

'Value', 1,... 

'Callback', 'options_fcn h_psca',... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0715631 0.72 0.378531 0.0533333], ... 
'String', 'Perform Stabilty & Control Analysis', ... 
'Style', 'radiobutton', ... 

Tag','Radiobutton3', ... 

'Value', 1); 

HPRDA = uicontrol('Parent’,H_OPTIONS,. .. 

'Callback', 'optionsfcn h_prda',... 

'Units','normalized’, ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0715631 0.632 0.378531 0.0533333], ... 
'String', TPerform Rotor Dynamics Analysis', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton4'); 

H_CIM = uicontrol('Parent',H_OPTIONS,... 
'Callback','options_fcn h_cim',... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0715631 0.541333 0.378531 0.0533333], 
'String','Change Iteration Method', ... 
'Style','radiobutton', ... 

'Tag', 'Radiobutton 1 '); 

H_CID = uicontrol('Parent',H_OPTIONS,... 

'Callback', 'options_fcn h_cid',... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0715631 0.453333 0.378531 0.0533333], 
'StringVChange Input Data', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton2'); 

HRTB = uicontrol('Parent',H_OPTIONS,... 
'Callback','options_fcn h_rtb',... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0715631 0.365333 0.378531 0.0533333], 
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'String', 'Return to Begining', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton5'); 

H_EJANRAD = uicontrol(Tarent',H_OPTIONS,... 
'Callback', ’options_fcn h_ejanrad',... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.07 15631 0.274667 0.378531 0.0533333], . 
'String', 'Exit JANRAD’, ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton6'); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',16, ... 

'FontWeight','bold', ... 

'Position', [0.546139 0.805333 0.376648 0.106667], ... 
'String', 'Print Selection', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

Hjprintin = uicontrol('Parent’,H_OPTIONS, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.545548 0.71644 0.169908 0.0527903], ... 

'String','Print Input File :', ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1', ... 

'Value', 0); 

H inputfile = uicontrol('Parent',H_OPTIONS, ... 
'Units','normalized', ... 

'FontSize’,12, ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'String',",... 

'Position', [0.748209 0.71644 0.169908 0.0527903], ... 
'Style','text', ... 

'HorizontalAlignment','left',... 

Tag',’StaticText6'); 

H_printout = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
•Position', [0.545548 0.628959 0.169908 0.0527903], ... 
'String', 'Print Output File :', ... 

'Style', 'checkbox', ... 

'Tag','Checkboxl', ... 

’Value',0); 

H_outputfile = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized 1 , ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

’String 1 ,'',... 

'Position', [0.748209 0.628959 0.169908 0.0527903], ... 
'Style’,'text', ... 

■Horizontal Alignment', 'left',. .. 

'Tag','StaticText8'); 

H_printvec = uicontrol('Parent',H_OPTIONS, ... 
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'Units' ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.545548 0.536953 0.169908 0.0527903], ... 
'String', 'Print Matrix & Vector File ... 

'Style', 'checkbox', ... 

'TagVCheckboxl', ... 

'Value', 0); 

H_vecfile = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized'. ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position',[0.748209 0.536953 0.169908 0.0527903], ... 
'String',",... 

'Style','text', ... 

'HorizontalAlignment','left',. .. 

'Tag','StaticText9'); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Callback','options_fcn print', ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position', [0.595 104 0.402667 0.288136 0.072], ... 

'String', 'Send to Printer', ... 

'Tag','Pushbutton2'); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Units' /normalized', ... 

'Background Color', [0.75294 1 0.752941 0.752941], ... 
'FontSize',18, ... 

'FontWeight',’bold', ... 

'Position', [0. 564995 0.199095 0.341862 0.0980391], ... 
'String', Tlot Selection', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized', ... 

'Callback', ['if OUT_COUNT==0,’„ . . 

'global filename3,filename3=get(H_vecfile,"String");end,',... 
'options_fcn plots'],... 

'FontSize',12, ... 

'Font Weight', 'bold', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position', [0.591607 0.102564 0.287615 0.0693816], ... 
'StringVCreate Plots', ... 

'Tag','Pushbutton3'); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Units','normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 
'Position', [0.5 19774 0.362667 0.435028 0.570667], ... 
'Style’,'ffame', ... 

'Tag','Framel'); 

b = uicontrol('Parent',H_OPTIONS, ... 

'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position',[0.045 1977 0.0826667 0.440678 0.850667], ... 
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’Style’, 'frame', ... 

Tag’,'Frame2'); 

b = uicontrol('Parent',H_OPTIONS, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.5 16888 0.0799397 0.432958 0.25641], ... 
'Style', 'frame', ... 

'Tag','Frame3'); 

b = uicontrol('Parent',H_OPTIONS, ... 

'Callback', 'options_fcn back', ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0809793 0.112 0.178908 0.088], ... 
'String', '« Back', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_OPTIONS, ... 

'Callback', 'options_fcn cont', ... 

’Units','normalized', ... 

'FontSize',12, ... 

'FontWeighCTjold', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], 
'Position', [0.286252 0.1 12 0.177024 0.088], ... 

'String', 'Continue »', ... 

'Tag', 'Pushbutton 1'); 
switch OUTCOUNT 
case 0 

if get(H_checkl,'Value')==0 
set(H_printin, 'Enable', 'off) 
end 

if get(H_check2,'Value')=0 
set(H_printout,Enable','off) 
end 

if get(H_check3 ,'Value')==0 
set(H_printvec, 'Enable', 'off) 
end 
end 

assigninCbase','H_PSCA',H_PSCA); 

assignin('base','H_PRDA',H_PRDA); 

assigninCbase','H_CIM',H_CIM); 

assigninCbase','H_CID',H_CID); 

assigninCbase','H_RTB',H_RTB); 

assignm(’base','H_EJANRAD',H_EJAMtAD); 

assignin(’base','Hjrintin',H_printin); 

assignin(’base','H_printout',H_printout); 

assignin('base','H_printvec',H_printvec); 

assignin( , base','H_inputfile',H_inputfile); 

assigninCbase','H_outputfile',H_outputfile); 

assigninCbase','H_vecfile',H_vecfile); 
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APPENDIX T. OPTIONS FCN.M 



Switchyard Callback function for options.m GUI function. 



function options_fcn( Action) 

% Switchyard Callback function for options.m 
% JANRAD 98 VERSION 5.0 

global H OPTIONS H_PSCA H PRDA H_CIM H_CID H RTB H_EJANRAD .. 
H_printin H_printout H_printvec PICK S_PERF_INPUT NAME... 
S_MATR_VEC H_vecfile print_templ filename3 H_r_VEC 



condl=get(H_PSCA, 'Value'); 
cond2=get(H_PRD A,’ Value') ; 
cond3=get(H_CIM,'Value'); 
cond4=get(H_CID, 'Value'); 
cond5=get(H_RTB, 'Value'); 
cond6=get(H_EJANRAD,'Value'); 

if nargin 
switch Action 
case 'h_psca' 

set(H_PSC A,' Value', 1 ) 
set(H_PRDA,'Value',0) 
set(H_CIM, 'Value', 0) 
set(H_CID,'Value',0) 
set(H_RTB, 'Value', 0) 
set(H_EJANRAD,'Value',0) 
case 'h_prda' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value', 1) 
set(H_CIM, 'Value', 0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD, 'Value', 0) 
case 'h_cim' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM, 'Value', 1 ) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD, 'Value', 0) 
case 'h_cid' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value', 1) 
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set(H_RTB, 'Value', 0) 
set(H_EJANRAD, 'Value', 0) 
case 'hrtb' 

set(H_PSCA, 'Value', 0) 
set(H_PRDA,'Value’,0) 
set(H_CIM, 'Value', 0) 
set(H_CE), 'Value', 0) 
set(H_RTB, 'Value', 1) 
set(H_EJANRAD, 'Value', 0) 
case 'h_ejanrad' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID, 'Value', 0) 
set(H_RTB, 'Value', 0) 
set(H_EJANRAD, 'Value', 1) 
case 'back' 
close (H_OPTIONS) 
performance_output 
case 'print' 

if get(H_printin, 'Value ')==1, 
eval(('!copy ,print_temp, lptl']) 
delete printtemp 
end 

if get(H_printout,'Value')==l, 
eval(['!copy .printtempl, lptl']) 
delete print_templ 
end 

if get(H_printvec,'Value')==l 
eval(rioad ',get(H_vecfile, 'String')]); 
diary print_temp2 
diary off 

delete print_temp2 
diary print_temp2 

r, Reff, psi, vi, theta, betat, alpha, Tpsi, Npsi, Mpsi, DMpsi, dT, dN, dM, dD, cblade, CL, CD, 
diary off 

eval(['!copy /b ,print_temp2, lptl']) 
delete print_temp2 
end 

case 'plots’ 
ifPICK=0 
no_iteration_plots 

set(H_r_VEC,'String’,num2str(S_MATR_VEC.r/S_PERF_INPUT.R)) 
elseif PICK==1 
airspeed_iteration_plots 
elseif PICK==2 
altitude_iteration_plots 
elseif PICK==3 
grosswt_iteration_plots 
elseif PICK==4 
bladetwist_iteration_plots 
elseif PICK==5 
bladetaperratio_iteration_plots 
elseif PICK==6 
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startoftaper_iteration_plots 
elseif PICK==7 
wingspanarea_iteration_plots 
elseif PICK==8 
rotorrad_iteration_plots 
elseif PICK==9 
rotorspd_iteration_plots 
end 

close (H_OPTIONS) 
case 'cont' 
if condl==l 
stability_and_control 
elseif cond2==l 
rotorjJynamics 
elseif cond3==l 
close (HOPTIONS) 

S_PERF_INPUT.Vinf=S_PERF_INPUT.Vinfyi. 68894444; 
S_PERF_INPUT.twist=-S_PERF_INPUT.twist*57.3; 
S_PERF_INPUT.thetao=S_PERF_INPUT.thetao*57.3; 
iteration_method 
elseif cond4==l 
close (H OPTIONS) 
performance_input 
elseif cond5==l 
close (HOPTIONS) 
janrad98 
elseif cond6==l 
quit_gni 
else, 

errorC Something is wrong in Options Function') 
end 

case 'return' 
close all 
janrad98 
case 'delta_input' 
close (H OPTIONS) 
performance_input 
case 'quit' 
quit_gui 
case 'about' 
aboutjanrad 
end 
end 
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APPENDIX U. BLADE ELEMENT.M 



This file creates a GUI screen allowing uneven blade element and nonlinear twist entries. 



function blade_element() 

% GUI Window to create user defined blade element vector 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load blade_element 

global S_PERF_INPUT H_BLD_EL NEW_r Refif r HOLD RADSPC_VAL NLJTWISTVAL 
NE W_AUX_VAL. . . 

FIX_TPP_VAL NEW_TPP HJEL_1 

unstructure 

COUNT=l; 

rho=.002377*(-. 00003 1 *PA+(- 002*temp+l. 1 18)) 

% *** first guess at rotor profile drag ( H force) *** 
if Vinf < 16.9, 

Drotoi=0; 

else 

Drotor=Vinf*(rho/.002377); 

end 

q=0 . 5 *rho* Vinf A 2 ; 

Adisk=pi*R A 2; 

Vtip=omega*R; 
temp_rank=temp+45 9 . 67 ; 
spd_snd=49. 1 *sqrt(temp_rank); 

%if (VtifH-Vinf)/spd_snd>0.87 
% spd_max=0.87*spd_snd 
% Vtip=spd_max-Vinf 
% omega=Vtip/R 

%end 

% Section added to set wing lift at a certain value and determine 
% the required wing CL %% This is for compound helos%% 
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APPENDIX U. BLADE ELEMENT.M 



This file creates a GUI screen allowing uneven blade element and nonlinear twist entries. 



function blade_element() 

% GUI Window to create user defined blade element vector 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load blade_element 

global S_PERF_INPUT HJBLDJEL NEW_r Reff r HOLD RADSPC_VAL NL_TWIST_VAL 
NEW_AUX_VAL... 

FIX_TPP_VAL NEW_TPP H_EL_1 

unstructure 

COUNT=l; 

rho=.002377*(- 00003 l*PA+(-.002*temp+l.l 18)) 

% *** first guess at rotor profile drag ( H force) *** 
if Vinf < 16.9, 

Drotor=0; 

else 

Drotor=Vinf*(rho/.002377); 

end 

q=0.5*rho*Vinf A 2; 

Adisk=pi*R A 2; 

Vtip=omega*R; 
temp_rank=temp+459.67; 
spd_snd=49. 1 *sqrt(temp_rank); 

%if (Vtip+Vinf)/spd_snd>0.87 
% spd_max=0.87*spd_snd 
% Vtip=spd_max-Vinf 
% omega=Vtip/R 

%end 

% Section added to set wing lift at a certain value and determine 
% the required wing CL %% This is for compound helos%% 
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%ifVinf>=160* 1.68781 
% perclift= 0.7; 

% Lwing=GW*perclift 
% CLwing= Lwing/(q* Swing) 

%else 

% Lwing=q*CLwing*Swing; 

%end 

Dfiise=q*Afh; 

CDwing=CDowing+(CLwing A 2/(ewing*pi*(bwing A 2/Swing))); 

CDhoriz=CDohoriz+(CLhoriz A 2/(.8*pi*(bhoriz A 2/Shoriz))); 

CDvert=CDovert+(CLvert A 2/(.8*pi*(bvert A 2/Svert))); 

Dwing=q*CDwing*Swing; 

Dhoriz=q* CDhoriz* Shoriz; 

Dvert=q*CDvert*Svert; 
if NEW_AUX_VAL== 1 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert) ; 
if Vinf<16.9 
Taux=0; 
else 

Taux=Dfitotal; 

end 

S_PERF_INPUT.Taux=Taux; 

S_USER_INPUT.Taux=Taux; 

else 

Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux; 

end 

%Lwing=.6* GW 

%if S_USER_INPUT. Vinf<80 %80 kts 
% Taux=0; 

%elseif S_U SERINPUT. Vinf>= 1 40 
% Taux=Dftotal; 

%else 

% Taux=((Vinf-135.02479)/100)*.98747 + Dftotal; 

%end 

Lwing=q* CL wing* Swing; 

Lhoriz=q*CLhoriz*Shoriz; 

Lvert=q*CLvert*Svert; 

Lftotal=Lwing+Lhoriz+Lvert; 
if FIX_TPP_ V AL== 1 
alphaT=NEW_TPP; %set tip path angle 
else 

alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

end 

%alphaT80=0; 

%if S_USER_INPUT.Vinf<80 
% alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

%elseif S_USER_rNPUT.Vmf==80 
% alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
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% alphaT80=alphaT; 

%elseif S_USER_INPUT.Vinf>= 140 
% alphaT=0; 

%else 

% alphaT=(l-(((Vinf-135.02479)/100)*.98747))*alphaT80; 

%end 

%alphaT 

mu=Vinf*cos(alphaT)/Vtip; 

%%% account for vertical drag on wing and horizontal tail %%% 
iftaildisk=l 

Afv 1 = Afv+3 * (S wing+Shoriz); % this assumes a vertical Cd of 1 . 2 for the 

elseif taildisk=2 % wing and horiz tail and a vertical Cd of 
Afv l=Afv+3* Swing % 0.4 for the fuselage (i.e. 1.2/.4 = 3) 

end % thus making wing/tail effectively larger 

% when hvr thrust calc using Cd=0.4 



if Vinf < 16.9, 

T=(l+(0.4*Afvl/Adisk))*GW; 

else 

T=(GW-Lftotal)/cos(alphaT) 

end 

CT=T/(Adisk*rho*Vtip A 2); 

B=l-(sqrt(2*CT)/b); 

Reff=B*R; 

r_HOLD=0; 

H_BLD_EL = figureCUnitsVnormalized', ... 

’ 'Color', [0.8 0.8 0.8], ... 

'Colormap',mat0, ... 

'Name', 'Blade Element', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData',matl, ... 

'Position', [0.04785 16 0.0690104 0.889648 0.877604], ... 
'Tag'/Figl'); 

H OPT = uimenu('Parent',H_BLD_EL, ... 

'Label', 'JANRAD Options', ... 

'Tag'.'uimenul'); 
c = uimenu('Parent',H_OPT, ... 

'Callback', 'blade_element_fcn quit’, ... 

'Label','Quit JANRAD', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',H_OPT, ... 

'Callback', 'blade_element_fcn return', ... 

'Label','Retum to Beginning', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',H_OPT, ... 

'Callback','blade_element_fcn delta_input', ... 

'Label', 'Change Input Parameters', ... 

'Tag','Subuimenu 1'); 
c = uimenu(’Parent',H_OPT, ... 
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’Callback’, , blade_element_fcn about', ... 

'Label', 'About Janrad 98 ...’, ... 

'Separator','on', ... 

'Tag','Subuimenu 1 '); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize’,12, ... 

'HorizontalAlignment','left', ... 

'Position',[0.0043956 0.799703 0.984615 0.189911], ... 
'String', mat2, ... 

'Style', 'text', ... 

Tag','StaticTextl'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'FontWeight','normal', ... 

'Position', [0. 116484 0.749258 0.217582 0.041543), ... 
'String', ['Grip Ratio = ', num2str(S_PERF_INPUT.grip/R)], . 
'Style', 'text', ... 

'Tag','StaticText4'); 
d = uicontrol(’Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'Position', [0.528571 0.747774 0.347253 0.041543), ... 
'String', [*Eff Blade Radius Ratio = ', num2 str(Reff7R) ] , ... 
'Style', 'text', ... 

'Tag','StaticText4'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941), ... 
'FontSize',10, ... 

'Positiori,[0. 164835 0.695846 0.1 16484 0.0459941], ... 
'String', 'Radius (r/R)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941), ... 
'FontSize',10, ... 

'Position', [0.00659341 0.695846 0.14505* 0.0445104], ... 
'String', 'Blade Element', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent’,H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'Position', [0.298507 0.696481 0.1 16205 0.0454545], ... 
'String', Twist (deg)', ... 

'StyleVtext', ... 

'Tag','StaticText2'); 
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d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.0 10989 0.642433 0.134066 0.0489614], ... 

'String', T, ... 

'Style', 'text', ... 

'Tag','StaticText3'); 

H_EL_1 = uicontrol('Parent',H_BLD_EL, ... 

'Units'/normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.164835 0.639466 0.117582 0.0519288], ... 

’String’, S_PERF_INPUT.grip/R,... 

’Style’, ’edit’, ... 

'TagVEditText 1'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.298507 0.63783 0.117271 0.0513196], ... 
'Callback',['NL_TWIST(l)=str2num(get(gcbo, "String"));',... 

'set(gdx), "String", NL_TWIST(1)),NL_TWIST_VAL=1;'], ... 

'Style','edit', ... 

'Tag'j'EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

•Position', [0.0142857 0.577151 0.131868 0.0459941], ... 

'String', '2', ... 

'Style', 'text', ... 

’Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', [’NEW_r(l)=str2num(get(H_EL_l, "String"));',... 
'NEW_r(2)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String",NEW_r(2)),RADSPC_VAL=l;'], ... 

'Position',[0. 164835 0.571217 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(2)=str2num(get(gcbo,''String"));set(gcbo, "String", NL_TWIST(2))', . 
■Position', [0.298507 0.573314 0.117271 0.0513196], ... 

’Style','edit', ... 

'Tag'.'EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

r Position',[0.0142857 0.514837 0.132967 0.0459941], ... 

'String','3', ... 

'Style','text', ... 

'Tag','StaticText3'); 
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d = uicontrol('Parent’,H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [ 1 1 1], ... 

'Callback',!... 

'NEW_r(3)=str2num(get(gcbo,"String"));',... 

’set(gcbo,"String",NEW_r(3))'], ... 

'Position', [0.164835 0.508902 0.117582 0.0519288], ... 

'Style', 'edit', ... 

’Tag'.’EditTextl’); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized’, ... 

'BackgroundColor', [1 1 1], ... 

'Callback','NL_TWIST(3)=str2num(get(gcbo,"String''));set(gcbo,"Stnng",NL_TWIST(3))', 
'Position', [0.298507 0.508798 0.117271 0.0513196], ... 

'Style', 'edit', ... 

’Tag','EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

•Position', [0.0142857 0.451039 0.1318680.0489614], ... 

'String', '4', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',[... 

’NEW_r(4)=str2num(get(gcbo, "String"));',... 

’set(gcbo,"String",NE W_r(4))'] , . .. 

'Position', [0. 164835 0.448071 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag’.'EditTextl'); 

b = uicontrol(Tarent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','NL_TWIST(4)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(4))', 
'Position', [0.298507 0.445748 0.117271 0.0513196], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

Tosition',[0.0142857 0.384273 0.131868 0.0504451], ... 

'String', '5', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent’,H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[ 1 1 1], ... 

'Callback', [... 

'NEW_r(5)=str2num(get(gcbo, "String"));',... 

*set(gcbo, "String", NEW_r(5))'], ... 

'Position', [0.164835 0.382789 0.117582 0.0534125], ... 
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'Style', 'edit', ... 

'Tag'.’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'UnitsVnormalized', ... 

'BackgroundColor',[l 1 1], ... 

'CallbackVNL_TWIST(5)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(5))', 
'Position', [0.298507 0.384164 0.117271 0.0527859], ... 

'Style', 'edit', ... 

'Tag’.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'FontSize’,12, ... 

'Position',[0.0153846 0.321958 0.131868 0.0474777], ... 

'String', '6', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

'NEW_r(6)=str2num(get(gcbo,"String"));',... 

'set(gcbo, "String", NEW_r(6))'], ... 

'Position', [0.164835 0.317507 0.117582 0.0534125], ... 

'Style', 'edit', ... 

Tag'.’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(6)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(6))', 
'Position', [0.298507 0.318182 0.117271 0.0527859], ... 

'Style', 'edit', ... 

'Tag’.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

•Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 

TontSize',12, ... 

'Position', [0.0 142857 0.259644 0.131868 0.0474777], ... 

'String', '7', ... 

'Style', 'text', ... 

Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

'NEW_r(7)=str2num(get(gcbo, "String”));',... 

'set(gcbo,"String'',NEW_r(7))'], ... 

'Position', [0. 164835 0.256677 0. 1 17582 0.0534 125], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

■Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(7)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(7))', 
'Position', [0.298507 0.258065 0.117271 0.0527859], ... 
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’Style’, 'edit', ... 

’Tag','EditTextl’); 

d = uicontroI('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.0153846 0.197329 0.132967 0.0474777], ... 

'String','8', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', [... 

’NEW_r(8)=str2num(get(gcbo,"String"));',... 

'set(gcbo, "String", NEW_r(8))’], ... 

'Position', [0.164835 0.192878 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units’, ’normalized’, ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'NL_TWIST(8)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(8))', 
'Position', [0.298507 0.193548 0.117271 0.0513196], ... 

'Style', 'edit', ... 

'Tag'.'EditTextl'); 

d = uicontrolCParent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.0142857 0.132047 0.131868 0.0459941],... 

'String', '9', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', [... 

'NEW_r(9)=str2num(get(gcbo, "String"));',... 

'set(gcbo," String", NEW_r(9))’] , . . . 

'Position', [0.164835 0.127596 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag',’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(9)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(9))’, 
'Position', [0.298507 0.130499 0.117271 0.0513196], ... 

'Style','edit', ... 

'Tag'^ditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.01 38593 0.0674487 0.132196 0.0483871], ... 
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'String',' 10', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback',!... 

'NEW_r(10)=str2num(get(gcbo, "String"));',... 

'set(gcbo, "String", NEW_r( 1 0))'], ... 

'Position', [0. 164835 0.0652819 0. 1 17582 0.0519288], ... 

'Style', 'edit', ... 

•Tag'^ditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'NL_TWIST(10)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(10))', ... 
'Position',[0.298507 0.0674487 0.1 17271 0.0513196], ... 

'Style', 'edit', ... 

'Tag’.EditTextl'); 

d = uicontrolCParent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',10, ... 

'Position', [0.65 1648 0.695846 0.120879 0.0474777], ... 

'String', 'Radius (r/R)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',10, ... 

'Position', [0.4879 12 0.697329 0.145055 0.0459941], ... 

'String', 'Blade Element', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',10, ... 

'Position', [0.794505 0.700297 0.116484 0.0445104], ... 

'String', Twist (deg)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.495604 0.64095 0.131868 0.0489614], ... 

'String',' 1 1 ', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', [... 
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'NE W_r( 1 1 )=str2num(get(gcbo, "String"));', . . . 

'set(gcbo, "String", NEW_r(l 1))'], ... 

'Position', [0.653445 0.63925 0.117954 0.0519481], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units',' ’normalized’, ... 

'BackgroundColor’,[l 1 1], ... 

'Callback', ’NL_TWIST( 1 1 )=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST( 11))', 
'Position', [0.794505 0.64095 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505 0.577151 0.12967 0.0474777], ... 

'String',' 12’, ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

*NEW_r(12)=str2num(get(gcbo,"String"));',... 

'set(gcbo, "String", NEW_r(12))'], ... 

'Position', [0.653846 0.578635 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag’,EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(12)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(12))', 
'Position', [0.794505 0.577151 0.117582 0.0504451], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505 0.513353 0.12967 0.0459941], ... 

’String','13', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', [... 

'NEW_r( 13)=str2num(get(gcbo, "String"));',. . . 

'set(gcbo,"String",NEW_r( 1 3 ))'], . . . 

'Position',[0.653846 0.513353 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 
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'BackgroundColor',[l 1 1], ... 

’Callback’, , NL_TWIST(13)=str2num(get(gcbo,"Stnng"));set(gcbo,"Strmg",NL_TWIST(13))’ > 
’Position', [0.794505 0.511869 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag’.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505 0.449555 0.12967 0.0489614], ... 

'String', '14', ... 

'Style', 'text', ... 

'Tag’,’StaticText3'); 
d = uicontrol(’Parent’,H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', [... 

'NE W_r( 1 4)=str2num(get(gcbo, "String"));', . . . 

’set(gcbo, "String", NEW_r( 14))’], ... 

•Position’, [0.653846 0.452522 0.117582 0.0519288], ... 

•Style’, 'edit', ... 

'Tag',EditTextl'); 

b = uicontrol(’Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'NL_TWIST(14)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(14))', 
'Position', [0.794505 0.452522 0.117582 0.0504451], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

•BackgroundColor’, [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.495604 0.385757 0.12967 0.0504451], ... 

'String',' 15', ... 

'Style', 'text', ... 

'Tag’,'StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

'NE W_r( 1 5)=str2num(get(gcbo, "String"));', . . . 

'set(gcbo,"String",NEW_r( 1 5)), 1 ] , ... 

'Position',[0.653846 0.388724 0.117582 0.0534125], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor 1 , [1 1 1], ... 

'Callback', 'NL_TWIST(15)=str2num(get(gcbo,''String"));set(gcbo,"String",NL_TWIST(15))’, 
'Position', [0.795604 0.390208 0. 1 17582 0.0534 125], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 
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'BackgroundColor', [0 . 75294 1 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position',[0.495604 0.321958 0.12967 0.0474777], ... 

'String', '16', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = nicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',]... 

'NEW_r(16)=str2num(get(gcbo, "String"));',... 

'set(gcbo, "String", NEW_r(16))'], ... 

■Position', [0.653846 0.323442 0.117582 0.0504451], ... 

'Style', 'edit', ... 

'Tag'j’EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',] 1 1 1], ... 

'Callback', ’NL_TWIST(16)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(16))', 
'Position', [0.794505 0.324926 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

d = uicontrol('Parent’,H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.495604 0.261128 0.12967 0.0474777], ... 

'String', '17', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units'.'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

'NEW_r( 1 7)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(17))'], ... 

'Position',[0.653846 0.262611 0.117582 0.0534125], ... 

'Style', 'edit', ... 

'Tag'.'EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'NL_TWIST(17)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(17))’, 
'Position', [0.794505 0.264095 0.1 17582 0.0534125], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505 0.200297 0.12967 0.0459941], ... 

'String','18', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol(’Parent',H_BLD_EL, ... 
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'Units’, 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback',!... 

’NEW_r(18)=str2num(get(gcbo,"String"));',... 

'set(gcbo, "String", NEW_r(18))'], ... 

'Position', [0.653846 0.198813 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag’.'EditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor’,[l 1 1], ... 

'Callback', ’NL_TWIST(18)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(18))', 
'Position', [0.794505 0.20178 0.117582 0.0504451], ... 

'Style','edit', ... 

'Tag'.’EditTextl'); 

d = uicontrol('Parent’,H_BLD_EL, ... 

■Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

TontSize',12, ... 

"Position’, [0.495604 0.137982 0.12967 0.0459941], ... 

'String', '19', ... 

'Style', 'text', ... 

•Tag',’StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',!... 

’NEW_r(19)=str2num(get(gcbo,"String"));’,... 

'set(gcbo, "String" ,NEW_r(19))'], ... 

'Position', [0.653846 0.137982 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag’^ditTextl'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgTOundColor’,[l 1 1], ... 

'Callback', 'NL_TWIST(19)=str2num(get(gcbo,"String"));set(gcbo, "String", NL_TWIST(19))', 
Tosition', [0.794505 0.139466 0.117582 0.0519288], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.4 94505 0.0712166 0.130769 0.0504451], ... 

'String','20', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

’Callback',!... 

’NEW_r(20)=str2num(get(gcbo,"String"));’,... 

'set(gcbo, "String", NEW_r(20))'], ... 

'Position', [0.653846 0.0727003 0.117582 0.0519288], ... 

'Style', 'edit', ... 
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'Tag','EditTexU'); 

b = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback','NL_TWIST(20)=str2num(get(gcbo,"String"»;set(gcbo,"String",NL_TWIST(20»', ... 
'Position', [0.79450 5 0.0771513 0.117582 0.0504451], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 

d = uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'Callback', r blade_element_fcn back', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

'Position', [0.153677 0.00593472 0.198683 0.0548961], ... 

'String', '« Back', ... 

'Tag','Pushbutton2'); 
d = uicontrol(Parent',H_BLD_EL, ... 

'Units'/normalized', ... 

'Callback',!... 

'if RADSPC_VAL== 1 , S_PERF_INPUT. nbe=length(NE W_r);end,', . . . 

"bladeelementfcn cont'],... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 
r FontWeight','bold', ... 

'Position',[0.649835 0.0074184 0.203074 0.0563798], ... 

'String', 'Continue', ... 

Tag', 'Pushbutton 1 '); 

assignin('base','Refi\Reff); 
assigninCbase','H_EL_ 1 ’,H_EL_ 1 ); 
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APPENDIX V. BLADE ELEMENT FCN.M 



Switchyard Callback function for blade_element.m GUI function. 



function blade_element_fcn(Action) 

% Switchyard Callback function for blade_element.m 
% JANRAD 98 VERSION 5.0 

global S_PERF_INPUT H BLD EL NEW_r Reffr_HOLD RADSPC_VAL NL_TWIST_VAL H MESH 
HPOP... 

AF_MAIN AF_TIP MESH_VAL MESH_STA NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 

if nargin, 
switch Action 
case 'return' 
janrad98 

close(H_BLD_EL) 
case 'quit' 
quit _gui 
case 'about' 
aboutjanrad 
case 'deltainput' 
performance_input 
if get(H_POP; Value’)=7 
set(H JMESH, 'Enable', 'on') 
end 

close(H_BLD_EL) 
case 'cont' 
count=0; 

for i=l:length(NEW_r) 
if NEW_r(i)>(Reff/S_PERF_INPUT.R) 
count=count+l; 
end 
end 

if count>=l 
rwaming 

else iteration_method 
close (H_BLD_EL) 
end 

case back' 
performance_input 
if get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 
end 

close(H_BLD_EL) 

end 

end 
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APPENDIX W. COMPOUND TAILROTOR.M 



This file creates a figure window allowing insertion of compound helicopter and tail rotor 
parameters 



function compound_tailrotor() 

% GUI Window to enter compound helo and tail rotor parameters 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load compoundtailrotor 

global H_COMP_TR H_AUX_E_DR H_FIX_TPP NEW_AUX_VAL NEW_TPP S_USER_INPUT 
S_PERF_INPUT COUNT ... 

MESH_VAL 

unstructure 1 
COUNT=l; 

H_COMP_TR = figure('Units', 'normalized', ... 

’ 'Color',[0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Compound Helicopter & Tail Rotor Parameters', ... 

'Createfcn', 'global S_CON_TR_INPUT',... 

'NumberTitle','ofP, ... 

'PointerShapeCData',matl, ... 

'Position', [0.00878906 0.0690104 0.899414 0.852865], ... 

'Tag', ’Figure'); 

d = uimenu('Parent',H_COMP_TR, ... 

'Label', 'JANRAD Options', ... 

'TagVuimenul'); 
c = uimenu('Parent',d, ... 

'Callback', 'compound_tailrotor_fcn quit', ... 

■Label', 'Quit JANRAD’, ... 

'TagVSubuimenul'); 
c = uimenu('Parent',d, ... 

'Callback','compound_tailrotor_fcn return',. . . 

■Label', 'Return to Begining', ... 

'Tag','Subuimenu 1 '); 
c = uimenu('Parent',d, ... 

'CaUback','compound_tailrotor_fcn delta_input',... 

'Label','Change Input Parameters', ... 

'Tag',' Subuimenu 1'); 
c = uimenu('Parent',d, ... 

'Callback', 'compoundtailrotorfcn about',. .. 

'Label', 'About Janrad 98 ...', ... 
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'Separator','on',... 

'Tag'/Subuimenul'); 
b = uicontrol('Parent',H_COMP_TR, ... 

Units', 'normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',10, ... 

'Position', [0.0412595 0.833588 0.408252 0.149618], ... 

'String', 'COMPOUND HELICOPTER OR COMPOUND HELICOPTER WITH AUXILIARY 
THRUST', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 

H_FIX_TPP = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0. 75 294 1 0.75294 1 0.752941], ... 

'Callback', 'global FIX_TPP_VAL', ... 

'Position', [0.0412595 0.743511 0.309446 0.0625954], ... 

'String'/SELECT TO FIX TIP PATH PLANE ANGLE', ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1 '); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0401737 0.674809 0.184582 0.0473282], ... 

'String', Tip Path Plane Angle = ', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

b = uicontrol('Parent',H_COMP_TR, ... 

Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'global NEW_TPP,NEW_TPP=str2num(get(gcbo, "String"));', ... 

'Position', [0.233442 0.671756 0.0879479 0.0503817], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.327904 0.671756 0.0705755 0.0473282], ... 

'String', 'radians', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 

H_AUX_E_DR = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Callback', 'global NEW_AUX_VAL,’, ... 

'Position', [0.0 19544 0.557252 0.450597 0.0717557], ... 

'String'/SELECT TO SET AUXILIARY THRUST EQUAL TO TOTAL DRAG', ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox2'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0282302 0.480916 0.42671 0.0610687], ... 

'String', mat2, ... 

'Style', 'text', ... 

'Tag','StaticText4'); 
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b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
■Position', [0.00977 199 0.436641 0.473398 0.555725], ... 
'Style', 'frame', ... 

'Tag','Framel'); 



%%%%%%%%%%%%%%%%%%%%%%%%% 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'FontSize',14, ... 

'Position',[0.565689 0.91145 0.407166 0.070229], ... 

'String', TAIL ROTOR SIZING PARAMETERS’, ... 

'Style', 'text', ... 

'Tag','StaticText5'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.565689 0.833588 0.407166 0.0717557], ... 

'String', 'Note: Fill In The Information Pertinent To Your Desired Tail Rotor Type', 
'Style', 'text', ... 

’Tag','StaticText6'); 

b = uicontrolCParent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontWeight','bold', ... 

*Position',[0.661238 0.775573 0.241042 0.0427481], ... 

'String','CONVENTIONAL TAIL ROTOR', ... 

'Style','text', ... 

'Tag','StaticText7'); 

b = uicontrol('Parent',H_COMP_TR, ... 

■Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.564604 0.723664 0.102063 0.0305344], ... 

’String', ’Radius (ft)’, ... 

'Style', 'text', ... 

'Tag','StaticTextlO'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

•Position’, [0.679696 0.722137 0.0760043 0.0305344], ... 

'CaUback','CON_R=get(gcbo, "String") ; S_U SER_INPUT. CON_R=str2num(CON_R) 
'String 1 , CON_R,... 

'Style', 'edit', ... 

'Tag','EditText2'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.774159 0.717557 0.108578 0.0366412], ... 

'String', 'Blade Chord (ft)', ... 

'Style', 'text', ... 

'Tag','StaticTextl3'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 
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'BackgroundColor',[l 1 1], ... 

'Position', [0.897937 0.719084 0.0781759 0.0305344], ... 

'Callback', 'CON_chord=get(gcbo,"String");S_USER_INPUT.CON_chord=str2num(CON_chord);’,.. 
'String', CON_chord,.. . 

'Style','edit', ... 

'Tag'.'EditTe^'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.562432 0.658015 0.103149 0.0305344], ... 

'String','# of Blades', ... 

'Style', 'text', ... 

'TagVStaticTextl 1'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.679696 0.656489 0.0770901 0.0305344], ... 

'Callback', 'CON_b=get(gcbo,"String");S_USER_INPUT.CON_b=str2num(CON_b);',... 

'String', CON_b„. . 

'Style', 'edit', ... 

’Tag','EditText3'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941],... 

'Position', [0.774 159 0.638168 0.112921 0.059542], ... 

'String',' Rotor Velocity (rad/sec)', ... 

'Style', 'text', ... 

’Tag','StaticTextl2’); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.897937 0.651908 0.0770901 0.0305344], ... 

'Callback', 'CON_omega=get(gcbo,"String");S_USER_rNPUT.CON_omega=str2num(CON_omega) 
'String 1 , CON_omega,. . . 

'Style', 'edit', ... 

'Tag','EditText5'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.564604 0.596947 0.103149 0.0305344], ... 

'String', 'Blade cd', ... 

'Style', 'text', ... 

'Tag','StaticTextl4'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.679696 0.593893 0.0770901 0.0305344], ... 

'Callback', 'CON_cd=get(gcbo,"String");S_USER_INPUT.CON_cd=str2num(CON_cd);',... 
'String',CON_cd,... 

'Style', 'edit', ... 

'Tag’.'EditTextO'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.773073 0.572519 0.114007 0.0534351], ... 
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'String', Tail Moment Arm (ft)', ... 

'Style','text', ... 

'Tag','StaticTextl 5’); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.897937 0.584733 0.0770901 0.0305344], ... 
'Callback','CONJt=get(gcbo, "String"), S_USER_INPUT.CON_It=str2num(CON_lt);',... 
'String', CONlt,... 

'Style', 'edit', ... 

'Tag','EditText7'); 

%%%%%%%%%% 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o%% 0 /o% 0 /o 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941],... 

'FontWeight',’bold', ... 

'Position',[0.662324 0.494656 0.241042 0.0427481], ... 

'String','F AN-IN-TAIL', ... 

'Style','text', ... 

•Tag','StaticText8'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.565689 0.454962 0.102063 0.0305344], ... 

'String','Radius (ft)', ... 

'Style’,'text', ... 

'Tag','StaticTextlO'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units'.'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.680782 0.451908 0.0792617 0.0305344], ... 

'Callback' ,'S_FIT_TR_INPUT.FIT_R=str2num(get(gcbo, "String”));',... 

'Style', 'edit', ... 

'Tag','EditText2'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.774159 0.424427 0.112921 0.059542], ... 

'String',' Rotor Velocity (rad/sec)', ... 

'Style'.'text', ... 

'Tag','StaticTextl 2'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1],... 

'Position', [0.897937 0.441221 0.0770901 0.0305344], ... 

'Callback', 'S_FIT_TR_INPUT.FIT_omega=str2num(get(gcbo,"String"));',... 

'Style',’edit', ... 

'Tag','EditText5'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position',[0.566775 0.384733 0.103149 0.0305344], ... 

'String', 'Blade cd', ... 

'Style', 'text', ... 

'Tag','StaticTextl4'); 
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b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [ 1 1 1], ... 

'Position',[0.68 1868 0.383206 0.0781759 0.0320611], ... 
'Callback','S_FIT_TR_INPUT.FIT_cd=str2num(get(gcbo,"String"));',... 
'Style','edit', ... 

'Tag'.'EditTexO'); 

b = uicontrol( l Parent',H_COMP_TR, ... 

'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941],... 

'Position', [0.77 1 987 0.363359 0.1 14007 0.0534351], ... 

'String', Tail Moment Arm (ft)', ... 

'Style', 'text', ... 

'Tag','StaticTextl5'); 
b = uicontrol('Parent',H_COMP TR, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0.896851 0.375573 0.0770901 0.0305344], ... 
'Callback','S_Frr_TR_INPUT.Frr_lt=str2num(get(gcbo, "String"));',... 
'Style', 'edit', ... 

'Tag', r EditText7'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.566775 0.331298 0.103149 0.0305344], ... 

'String', 'Solidity', ... 

'Style', 'text', ... 

Tag7StaticTextl4'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','noimalized', ... 

'BackgroundColor',! 1 1 1], ... 

'Position', [0.68 1 868 0.329771 0.0781759 0.032061 1], ... 
'Callback','S_FIT_TR_INPUT.FIT_sigma=str2num(get(gcbo, "String"));', 
'Style', 'edit', ... 

'Tag','EditText3'); 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontWeight',’bold', ... 

'Position', [0.663409 0.259542 0.239957 0.0412214], ... 
'String','NOTAR', ... 

'Style', 'text', ... 

'Tag','StaticText9'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.567861 0.21374 0.102063 0.0305344], ... 
'String','Diameter (ft)', ... 

'Style','text', ... 

'Tag'.'StaticTextlO'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 
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'BackgroundColor',[l 1 1], ... 

'Position’, [0.677524 0.21374 0.0770901 0.0320611], ... 
'Style', 'edit', ... 

'Tag'^ditTe^'); 

b = uicontrol('Parent’,H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.773073 0.20916 0.108578 0.0381679], ... 
'StringVRPM', ... 

'Style', 'text', ... 

'Tag','StaticTextl3'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.900109 0.210687 0.0781759 0.0305344], . 
'Style', 'edit', ... 

'Tag','EditText4’); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.567861 0.145038 0.103149 0.0320611], ... 
'String','# of Blades', ... 

'Style', 'text', ... 

’Tag','StaticTextl 1'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.677524 0.1435 11 0.0770901 0.0335878], . 
'Style', 'edit', ... 

'Tag , , r EditText3'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.770901 0.128244 0.112921 0.0625954], ... 
'String',’ TTuuster Exit Area (ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticTextl2’); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.900109 0.141985 0.0770901 0.0320611], . 
'Style', 'edit', ... 

’Tag','EditText5’); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units’, 'normalized', ... 

'BackgroundColor*, [0.752941 0.752941 0.752941], ... 
'Position', [0.568947 0.0793893 0.103149 0.0305344], . 
'String', 'Solidity', ... 

'Style', 'text', ... 

'Tag','StaticTextl4'); 
b = uicontrol('Parent',H_COMP_TR, ... 

’Units',’normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position', [0.677524 0.0793893 0.0781759 0.0305344], 
'Style','edit', ... 
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'Tag',EditText6'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.770901 0.0580153 0.114007 0.0534351], ... 

'String', 'NOTAR Moment Arm (ft)', ... 

'Style', 'text', ... 

'Tag','StaticTextl5'); 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.897937 0.0717557 0.0770901 0.0305344], ... 

•Style', 'edit', ... 

'Tag',EditText7'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941],... 

'Position', [0. 5 5 8089 0.010687 0.429967 0.983206], ... 

'Style', 'frame', ... 

'Tag','Frame2'); 

b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'Callback', 'compound_taiIrotor_fcn back', ... 

'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position',[0. 149837 0.242378 0.206298 0.106707], ... 

'String', -BACK', ... 

'Tag', 'Pushbutton 1 ') ; 
b = uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'Callback', 'S_PERF_INPUT=S_USER_INPUT;compound_tailrotor_fcn cont', ... 
'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position', [0.152009 0.0960366 0.206298 0.105183], ... 

'String', 'CONTINUE »', ... 

'Tag', 'Pushbutton 1'); 

assigninCbase','H_AUX_E_DR',H_AUX_E_DR) 

assignm('base','H_FIX_TPP',H_FIX_TPP) 
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APPENDIX X. COMPOUND TAELROTOR FCN.M 



Switchyard callback for compound_tailrotor.m GUI screen 

function compoundJailrotor_fcn( Action) 

% Switchyard Callback function for compoundtailrotor.m 
% JANRAD 98 VERSION 5.0 

global H_PERF_IN H_COMP_TR H_AUX_E_DR H_FIX_TPP NEW_AUX_VAL NEW_TPP 
FIX_TPP_VAL RADSPC_VAL ... 

COUNT S_USER_INPUT S_PERF_INPUT H_POP AF_MAIN AF_TEP MESH_VAL MESH_STA 
NEW_r NL_TWIST 

if nargin, 
switch Action 
case back' 
performance_input 
if get(H_POP,'Value')=7 
set(H_MESH, 'Enable', 'on') 

MESH_VAL=1; 

end 

close (H_COMP_TR) 
case 'return' 
janrad98 
close all 
case 'quit' 
quit_gui 

case 'delta_input' 
performanceinput 
if get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 

MESH_VAL=1; 

end 

close (H_COMP_TR) 
case 'about' 
aboutjanrad 
case 'cont' 

if get(H_AUX_E_DR,'Value')= 1 
NE W_AUX_VAL= 1 ; 
else 

NE W_AUX_ VAL=0 ; 
end 

if get(H_FIX_TPP,'Value')== 1 
FIX_TPP_VAL= 1 ; 
else 

FIX_TPP_VAL=0; 

end 

if RADSPC_VAL== 1 |NL_TWIST==1 
blade_element 
close (H_COMP_TR) 
else 

iteration_method 
close (H_COMP_TR) 
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end 

end 

end 
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APPENDIX Y. AIRFOIL MESH.M 



This file creates a screen allowing airfoil meshing capabilities 



function airfoil_mesh() 

% GUI Window to create mesh of two airfoils 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load airfoil_mesh 

global H_AF_MESH H_MESH AF_MAIN AF_TIP MESH_STA MESH_VAL COUNT 
COUNT=l; 

H_AF_MESH = figureCUnitsVnormalized', ... 

‘ ’Color’, [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name'.'Airfoil Mesh', ... 

'NumberTitle'.'off, ... 

'PointerShapeCData’.matl, ... 

'Position',[0. 169922 0.532552 0.65625 0.389323], ... 

'Tag', Tig H; 

b = uicontrol('Parent',H_AF_MESH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.0997024 0.627517 0.802083 0.325503], ... 

'String', mat2, ... 

'Style', 'text', ... 

'Tag'.'StaticText 1'); 

b = uicontrol(Tarent',H_AF_MESH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

■Position', [0.13244 0.399329 0.354167 0.184564], ... 

'String', ['Airfoil for rotor blade section out to r/R of ' num2str(MESH_STA)], ... 
'Style', 'text', ... 

Tag7StaticText2'); 

H_AF_MAIN = uicontrol(’Parent',H_AF_MESH, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'FontSize',12, ... 

'Position',[0. 537202 0.270903 0.21131 0.314381], ... 
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'String', ['Select|0012|HH-02|VR-12|VR-15|SC1094R8|SC1095R8'], ... 

'Style', 'popupmenu', ... 

'Callback', 'global AF_MAIN, AF_MAIN=get(gcbo, "Value");',... 
'Tag'/PopupMenul', ... 

'Value', 1); 

b = uicontrol('Parent',H_AF_MESH, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

’Position’,[0. 13244 0.0973154 0.354167 0.194631], ... 

'String', ['Airfoil for rotor blade from ' num2str(MESH_STA) ' r/R out to tip.'], ... 
'Style', 'text', ... 

'Tag','StaticText2'); 

H_AF_TIP = uicontrol('Parent',H_AF_MESH, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

TbntSize',12, ... 

'Position', [0.53869 -0.0234114 0.21131 0.32107], ... 

'String', ['Select|0012|HH-02|VR-12|VR-15|SC1094R8|SC1095R8'], ... 

'CaUback', 'global AF_TIP,AF_TIP=get(gcbo, "Value");',... 

'Style', 'popupmenu', ... 

’Tag','PopupMenul', ... 

'Value', 1); 

b = uicontrol('Parent',H_AF_MESH, ... 

'Units','points', ... 

'BackgroundColor', [0.847059 0.752941 0.627451], ... 

'Position', [7.44828 6.82759 404.069 286.138], ... 

'Style','frame’, ... 

'TagVFramel', ... 

'Visible'/off); 

b = uicontrol('Parent',H_AF_MESH, ... 

'Units', 'points', ... 

'FontSize',14, ... 

•Font Weight', 'bold', ... 

'Position', [332.69 56.4828 42.8276 28.5517], ... 

'String', 'O.K.', ... 

'Callback', 'performance_input_fcn ok',... 

'Tag', 'Pushbutton 1 '); 

assigninCbase','H_AF_MAIN',H_AF_MAIN) 

assigninCbase','H_AF_TIP’,H_AF_TIP) 
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APPENDIX Z. CREATE PLOTS.M 



This file generates the output plots for all iteration methods 

% Create_Plots.m 

% Plots of Performance Output - change figure nbrs as needed 
% add/comment out figures as needed %%%% 

% JANRAD 98 VERSION 5.0 

global REGIME S_PERF_INPUT MINUM RADSPC_VAL filename3 PICK OUT_COUNT PLOT_VALS 

un structure 
if PICK ~=0 
load output 
load tailop 
end 

if REGIME==1 
load extra9 
end 

switch PICK 
caseO 

eval(['load ',filename3]) 
if RADSPC_VAL== 1 
dr=[dr (R-Reff)]*12 
else 

dr=dr*12; 

end 

if get(H_NOIT_P 1,' Value')== 1 
figure(ll) 
subplot(2,l,l) 

plot(r./R,dT(l,:)./dr,'k'),grid 
title('Psi = 0 deg') 

xlabel('Blade Position r/R');ylabel('Airload (Lb/in)'); 
subplot(2,l,2) 

plot(r./R,dT(floor(naz/4),:)./dr,’k'),grid 
title('Psi = 90 deg') 

xlabel('Blade Position r/R');ylabel(' Airload (Lb/in)'); 

toptitle( ['Airload vs Radial Blade Stations At ',num2str(Vinf71.68781),' Kts']) 

figure(12) 

subplot(2,l,l) 

plot(r./R,dT(floor(naz/2),:)./dr,'k'),grid 
tiUe('Psi = 180 deg') 

xlabel('Blade Position r/R'); ylabel(' Airload (Lb/in)'); 
subplot(2,l,2) 

plot(r./R,dT(floor(3 *naz/4), :)./dr,'k'),grid 
title('Psi = 270 deg') 
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xlabel('Blade Position r/R’); ylabel(' Airload (Lb/in)’); 
toptitle([* Airload vs Radial Blade Stations At ',num2str(Vinfn. 68781),’ Kts']) 
end 

if get(H_NO_IT_P2,'Value')== 1 
figure(13) 

if RADSPC_VAL== 1 

[th,rl] = meshgrid((-180:360/naz:180)*pi/180,r/R ); 
else 

[th,rl] = meshgrid((-180:360/naz:180)*pi/180,r/R); 
end 

[x,y] = pol2cart(th,rl); 
dTl=[dT; dT(l,:)]; 
for i=l:naz+l 
dTl(i,:)=dTl(i,:)./dr, 
end 

mesh(x',y',dTl) 
view(3 15,60) 
axis([-l 1 -1 1 -5 40]) 

xlabel('Starboard'); ylabel('Aft'); zlabel('Aero Load, Lb/in'); 
title( ['Airload Distribution At ',num2str(Vinf/l. 68781),' Kts']) 
end 

if get(H_NO_IT_P3,'Value')== 1 
figure(14) 

n=length(PLOT_VALS); 

rows=ceil(n/2); 

for i=l:n 

k=find(r==(interpl(r,r,PLOT_VALS(i)*R,'nearest'))); 
subplot(rows,2,i) 
if (floor(i/2)==(i/2)) 
plot(psi,dM(:,k)),grid,axis tight 
title(['r/R = ’,num2str(PLOT_VALS(i))]) 
if i=n 

xlabel('Azimuth(deg)'); 

end 

else plot(psi,dM(:,k)), grid, axis tight 
title(['r/R = ’,num2str(PLOT_VALS(i))]) 
if (i=n|i=n-l) 
xlabel('Azimuth(deg)'); 
end 

ylabel('Thrust Moment(ft-lb)') 
end 
end 

toptitle( ['Thrust Moment vs Azimuth At ',num2str(Vinf71 .68781),' Kts']') 
end 

if get(H_NO_IT_P4,'Value')== 1 
figure(15) 
subplot(2,2,l) 
plot(r./R,dN( 1 , : )/dr,'k’) ,grid 
title(Tsi = 0 deg') 
ylabel('Lift, Lb/in'); 

subplot(2,2,2) 

plot(r./R,dN(floor(naz/4),:)/dr,'k'),grid 
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title('Psi = 90 deg') 



subplot(2,2,3) 

plot(r./R,dN(floor(naz/2), :)/dr,'k'),gnd 
title('Psi =180 deg 1 ) 
xlabel('r/R');ylabel('Lift, Lb/in'); 

subplot(2,2,4) 

plot(r./R,dN(floor(3 *naz/4), :)/dr,'k'),grid 

title('Psi = 270 deg') 

xlabel('r/R'); 

toptitle(['Nonnal Force (Lift) vs Radial Blade Stations At ',num2str(Vinfy 1.68781),' Kts']) 
end 

case 1 
load extral 

if get(H_AS_IT_P l,'Value')== 1 

%%%% Main Rotor plots - Speed vs T/RHP/TPPangle/Liftpercent - 4 on 1 page %%%% 
figure(ll) 

%subplot 221;plot(speed,LoverD); ylabel('W/De'); xlabel(' Airspeed (kts)') 
subplot 22 1; plot(speed,thrust);grid, ylabel('Rotor Thrust (lb)’) 
subplot 222; plot(speed,RHP); grid,ylabel('Rotor Horsepower') 

subplot 223; plot(speed, angle); grid,xlabel(' Airspeed, Kts'); ylabel('Tip Path Plane Angle (deg)') 
subplot 224; plot(speed,Lperc); grid,xlabel(' Airspeed, Kts');ylabel('Wing Lift Percentage') 
%subplot 223; plot(mu,ctonsig) 

%%%% Exact niunbers for above graphs 

%disp(' Speed W/De RHP TPP Angle Lift Percent') 

%final= [speed LoverD RHP angle Lperc]; 
end 

if get(H_AS_IT_P2,'Value')== 1 
%%%% Total Pwr reqd vs Airspeed%%%% 
figure(12) 

if MINUM==0&PA==0&REGIME== 1 
Totpwr( 1 )=Ptige( 1 ); 
end 

plot(speed, Totpwr),hold,grid 
plot(speed, RHP,'r') 
plot(speed, pwrtail,'g') 
titleCPower Required vs Airspeed') 
xlabel('Airspeed (kts)') 
ylabel('Shaft Horsepower') 

text(1.01*min(speed),.995*max(Totpwr), ['Omega = ' num2str(omega) ' rad/sec']) 
legend(Total Power', 'Rotor Power', 'Tail HP',0) 
if MINUM=0&PA==0&REGIME== 1 
text(min(speed)+10,min(Totpwr)+10, 'Value at Vinf=0 is HIGE Power') 
end 
end 

%if get(H_AS_IT_P3,’Value')= 1 

% %%%% Fan-in-Tail Plots - Thrust vs Speed & Pwr vs Speed - on 1 page %%%% 

% figure(13) 

% subplot 211; plot(speed, Tfan,speed,Tfin,'--'),grid 
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% title(’ Anti-Torque Thrust Required and Vertical Fin Thrust Provided') 

% ylabel(’Thrust (lbs)');legend('Fan Thrust', 'Vert Fin Lift’,0) 

% subplot 212; plot(speed, pwrfarn,'--’, speed, pwrfanp,'-.', speed, pwrfant), grid 
% title('Fan Power Required') 

% xlabel(' Airspeed (kts)');ylabelCPower (hp)') 

% legend('Induced Power', 'Profile Power',Total Power',0) 

%end 

if get(H_AS_IT_P3,'Value')==l 
%%%% Rotor Speed vs Speed (Variable omega) 
figure(13) 
plot( speed, rotspd) 

titleCRotor Speed vs Airspeed For Constant Vtip = 0.87 Mach') 
xlabel(' Airspeed (kts)');ylabel('Omega (rad/sec)') 
axis([140 220 2124.5]) 
end 

%if get(H_AS_rr_P4,*Value’)=l 

% %%%% Fan-in-Tail Plot - Speed vs Tot Fan Pwr %%%% 

% figure(14) 

% plot(speed, pwrfant./RHP* 100), grid 
% title('Tail Rotor Power Required as Percent of Rotor Power’) 

% xlabel('Airspeed') 

% ylabel(’Percent Rotor Power') 

%end 

if get(H_AS_IT_P4,'Value')== 1 
figure(14) 

plot(speed, auxthrust),grid 

title('Auxiliaiy Thrust Required vs Airspeed, Wing Carrying 70% Total Lift') 
xlabel(' Airspeed (kts)') 
ylabel(' Auxiliary Thrast (lb)') 
end 

if get(H_AS_IT_P5,'Value')== 1 

%%%% Plot of Coeff of Pwr vs Coeff of Thrust at Max Airspeed %%%% 
figure(15) 

plot(T coeff, Pcoeff), grid 
title('CP versus CT for Maximum Airspeed') 
xlabel('Thrust Coefficient (CT)') 
ylabel('Engine Power Coefficient (CP)') 
end 

if get(H_AS_IT_P6,'Value')== 1 

%%%% Plot of Coefficient of Thrust vs Figure of Merit %%%% 
figure(16) 

plot(Tcoefif,figmrt),grid 
title(’HOGE FM versus CT for SLS') 
xlabel('Thrust Coefficient (CT)’) 
ylabel('Figure of Merit (FM)') 
end 

if get(H_AS_IT_P7,'Value')== 1 
%%%% Rotor Drag vs Airspeed %%%% 
figure(17) 

plot(speed,Rotdrag'r'),hold on,grid 

plot(speed,Wingdrag,'b') 

plot(speed,Drag,'g') 



192 



title('Drag vs Airspeed') 
xlabelC Airspeed (Kts)') 
ylabel('Drag (lbs)') 

legend('Rotor Drag','Wing Drag', Total Drag',0) 
end 

if get(H_AS_IT_P8;Value')=l 
%%%% Required Collective Pitch vs Airspeed %%%% 
figure(18) 

plot(speed,coll_pit),grid 
title('Required Collective Pitch vs Airspeed') 
xlabel(' Airspeed (Kts)') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_AS_IT_P9,'Value')== 1 
%%%% Total Pwr reqd vs Airspeed%%%% 
figure(ll) 

plot(speed, Totpwr),hold,grid 
plot(speed, RHP,'r’) 
plot(speed, pwrtail,'g') 
title('Power Required vs Airspeed') 
xlabel(' Airspeed (Kts) 1 ) 
ylabel('Shaft Horsepower') 
legend(Total Power','Rotor Power', 'Tail HP',0) 
gtext('Omega= 20 rad/s Above 140 kts') 
end 

if get(H_AS_IT_P 10,'Value’)== 1 
%%%% bis vs Airspeed %%%% 
figure(20) 

plot(speed,long_coeff),grid 
title('lst Longitudinal Cyclic Term vs Airspeed') 
xlabelC Airspeed (Kts)') 
ylabelCbls') 
end 

case 2 
load extra2 

if get(H_AL_IT_P 1 ,'Value')= 1 
%%%% Total Pwr reqd vs Altitude%%%% 
figure(ll) 



if MINUM==0&Vinf==0&REGIME== 1 
Totpwr( l)=Ptige(l ); 
end 

plot(altitude, Totpwr),grid 
title(Total Power Required vs Altitude') 
xlabel('Pressure Altitude (ft)') 
ylabel('Shaft Horsepower') 
if MINUM==0& Vinf==0&REGIME== 1 
text(niin(altitude)+50,min(Totpwr)+10, 'Value at PA=0 is HIGE Power') 
end 
end 

if get(H_AL_rr_P2,'Value')= 1 
%%%% Rotor Drag vs Altitude %%%% 
figure(12) 
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altitude 

Rotdrag 

plot(altitude,Rotdrag),grid 
title('Rotor Drag vs Altitude') 
xlabel('Pressure Altitude (fit)') 
ylabel('Rotor Drag (lbs)') 
end 

if get(H_AL_IT_P3 ,' Value')= 1 
%%%% Required Collective Pitch vs Altitude %%%% 
figtue(13) 

plot(altitude,coll_pit),grid 
title('Required Collective Pitch vs Altitude') 
xlabel('Pressure Altitude (ft)') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_AL_IT_P4,'Value')= 1 
%%%% als vs Altitude %%%% 
figure(14) 

plot(altitude,lat_coeff),grid 
title('lst Lateral Cyclic Term vs Altitude') 
xlabel('Pressure Altitude (ft)') 
ylabel('als') 
end 

if get(H_AL_IT_P5,'Value')= 1 
%%%% bis vs Altitude %%%% 
figure(15) 

plot(altitude,long_coeff),grid 
title(' 1 st Longitudinal Cyclic Term vs Altitude') 
xlabel('Pressure Altitude (ft)') 
ylabelCbls') 
end 

case 3 
load extra3 

if get(H_G W_IT_P 1 Value')== 1 

%%%% Total Pwr reqd vs Gross Weight%%%% 

figure(ll) 

plot(wt, Totpwr),grid 

title('Total Power Required vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabel('Shaft Horsepower') 
end 

if get(H_GW_IT_P2,'Value')== 1 
%%%% Rotor Drag vs Gross Weight %%%% 
figure(12) 

plot(wt, Rotdrag), grid 
title('Rotor Drag vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabel('Rotor Drag (lbs)') 
end 

if get(H_GW_IT_P3,'Value')== 1 
%%%% Required Collective Pitch vs Gross Weight %%%% 
figiue(13) 

plot(wt,coll_pit),grid 

title('Required Collective Pitch vs Gross Weight') 
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xlabel('Gross Weight (lb)’) 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_GW_IT_P4,'Value')== 1 
%%%% als vs Gross Weight %%%% 
figure(14) 

pIot(wt,lat_coeff),grid 

title('lst Lateral Cyclic Term vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabel('als') 
end 

if get(H_GW_IT_P5,'Value')== 1 
%%%% bis vs Gross Weight %%%% 
figure(15) 

plot(wt,long_coeff),grid 

title('lst Longitudinal Cyclic Term vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabelCbls') 
end 

if get(H_GW_IT_P6,'Value')= 1 
%%%% Plot of Coefficient of Thrust vs Gross Weight %%%% 
figure(16) 
plot(wt,Tcoeff),grid 

title('Coefficient of Thrust vs Gross Weight') 
xlabel('Gross Weight (lb)’) 
ylabel('Thrust Coefficient (CT)') 
end 

if get(H_GW_IT_P7,' Value')== 1 
%%%% Plot of Coefficient of Power vs Gross Weight %%%% 
figure( 17) 
plot(wt,Pcoeff),grid 

title('Coefficient of Power vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabel('Power Coefficient (CP)') 
end 

if get(H_GW_IT_P8,'Value')== 1 
%%%% Plot of Figure of Merit vs Gross Weight %%%% 
figure! 18) 
plot(wt,figmrt),grid 

titleCFigure of Merit vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabelCFigure of Merit') 
end 

if get(H_GW_rr_P9,'Value')== 1&REGIME== 1&PA=0 

figure(19) 

plot(wt,Ptige),grid 

title('HIGE Power Required vs Gross Weight') 
xlabel('Gross Weight (lb)') 
ylabel('Shaft Horsepower') 
end 



case 4 

load extra4 
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if get(H_BT_IT_P 1 ,' Value')== 1 

%%%% Total Pwr reqd vs Blade Twist%%%% 

figure(ll) 

plot(thetat, Totpwr),grid 
title(Total Power Required vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Shaft Horsepower') 
end 

if get(H_BT_IT_P2,'Value')== 1 
%%%% Rotor Drag vs Blade Twist (deg) %%%% 
figure(12) 

plot(thetat,Rotdrag),grid 
title('Rotor Drag vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Rotor Drag (lbs)') 
end 

if get(H_BT_IT_P3,'Value')==l 

%%%% Required Collective Pitch vs Blade Twist (deg) %%%% 
figure(13) 

plot(thetat,coll_pit),grid 
title('Required Collective Pitch vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_BT_IT_P4,'Value')= 1 
%%%% als vs Blade Twist (deg) %%%% 
figure(14) 

plot(thetat,lat_coeff),grid 
title('lst Lateral Cyclic Term vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('als') 
end 

if get(H_BT_IT_P5,'Value')== 1 
%%%% bis vs Blade Twist (deg) %%%% 
figure(15) 

plot(thetat,long_coeff),grid 
tide('lst Longitudinal Cyclic Term vs Blade Twist 1 ) 
xlabel(’Blade Twist (deg)') 
ylabelCbls’) 
end 

if get(H_BT_IT_P6,'Value')== 1 

%%%% Plot of Coefficient of Thrust vs Blade Twist (deg) %%%% 
figure(16) 

plot(thetat,Tcoeff),grid 
title('Coefficient of Thrust vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Thrust Coefficient (CT)') 
end 

if get(H_BT_IT_P7,'Value')==l 

%%%% Plot of Coefficient of Power vs Blade Twist (deg) %%%% 
figure(17) 

plot(thetat,Pcoeff),grid 
title('Coefficient of Power vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Power Coefficient (CP)') 



196 



end 

if get(H_BT_IT_P8,'Value')== 1 
%%%% Plot of Figure of Merit vs Blade Twist (deg) %%%% 
figure(16) 

plot(thetat,figmrt),grid 
title('Fi gure of Merit vs Blade Twist') 
xlabel('Blade Twist (deg)') 
ylabel('Figure of Merit') 
end 

case 5 

load extra5 

if get(H_BTR_IT_Pl ,' Value')= 1 

%%%% Total Pwr reqd vs Blade Taper Ratio%%%% 

figure(ll) 

plot(taper, Totpwr),grid 

title(Total Power Required vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio’) 
ylabel('Shaft Horsepower') 
end 

if get(H_BTR_ITJP2,'Value')==l 
%%%% Rotor Drag vs Blade Taper Ratio%%%% 
figure(12) 

plot(taper,Rotdrag),grid 
title('Rotor Drag vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio') 
ylabel('Rotor Drag (lbs)') 
end 

if get(H_BTR_IT_P3,'Value')==l 
%%%% Required Collective Pitch vs Blade Taper Ratio%%%% 
figure(13) 

plot(taper,coll_pit),grid 

title('Required Collective Pitch vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_BTR_IT_P4,'Value')==l 
%%%% al s vs Blade Taper Ratio %%%% 
figure(14) 

plot(taper,lat_coeff),grid 

title('lst Lateral Cyclic Term vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio') 
ylabel('als') 
end 

if get(H_BTR_IT_P5,' Value')== 1 
%%%% bis vs Blade Taper Ratio %%%% 
figure(15) 

plot(taper,long_coeff),grid 

title('lst Longitiadinal Cyclic Term vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio') 
ylabelCbls’) 
end 

if get(H_BTR_ITP6,'Value’)==l 

%%%% Plot of Coefficient of Thrust vs Blade Taper Ratio %%%% 
figure(16) 
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plot(taper,Tcoeff),gnd 

title('Coefficient of Thrust vs Blade Taper Ratio’) 
xlabel('Blade Taper Ratio') 
ylabel('Thrust Coefficient (CT)') 
end 

if get(H_BTR_IT_P7,'Value')==l 

%%%% Plot of Coefficient of Power vs Blade Taper Ratio %%%% 
figure(17) 

plot(taper,Pcoeff),grid 

title('Coefficient of Power vs Blade Taper Ratio') 
xlabel(’Blade Taper Ratio') 
ylabel('Power Coefficient (CP)') 
end 

if get(H_BTR_IT_P8,'Value')== 1 
%%%% Plot of Figure of Merit vs Blade Taper Ratio %%%% 
figure(16) 

plot(taper,figmrt),grid 
title('Figure of Merit vs Blade Taper Ratio') 
xlabel('Blade Taper Ratio') 
ylabel('Figure of Merit') 
end 

case 6 

load extra6 

if get(H_SOT_IT_P 1 , ' Value')= 1 

%%%% Total Pwr reqd vs Start of Taper Position%%%% 

figure(ll) 

plot(start, Totpwr),grid 

title(Total Power Required vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabel('Shaft Horsepower') 
end 

if get(H_SOT_IT_P2,’ Value’)= 1 
%%%% Rotor Drag vs Start of Taper Position%%%% 
figure(12) 

plot(start,Rotdrag),grid 
title('Rotor Drag vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabel(’Rotor Drag (lbs)') 
end 

if get(H_SOT_IT_P3 ,' Value’)= 1 

%%%% Required Collective Pitch vs Start of Taper Position%%%% 
figure(13) 

plot(start,coll_pit),grid 

title('Required Collective Pitch vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_SOT_IT_P4,' Value')= 1 
%%%% als vs Start of Taper Position %%%% 
figure(14) 

plot(start,lat_coeff) ,grid 

title('lst Lateral Cyclic Term vs Start of Taper Position') 

xlabel('Start of Taper Position') 

ylabel('als') 
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end 

if get(H_S0T_IT_P5,'Value')==l 
%%%%bls vs Start of Taper Position %%%% 
figure(15) 

plot(start,long_coeff),grid 

title('lst Longitudinal Cyclic Term vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabelCbls’) 
end 

if get(H_SOT_IT_P6,'Value')=l 

%%%% Plot of Coefficient of Thrust vs Start of Taper Position %%%% 
figure(16) 

plot(start,Tcoeff),grid 

title('Coefficient of Thrust vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabel('Thrust Coefficient (CT)') 
end 

if get(H_SOT_rr_P7,'Value')=l 

%%%% Plot of Coefficient of Power vs Start of Taper Position %%%% 
figure(17) 

plot(start,Pcoeff),grid 

title('Coefficient of Power vs Start of Taper Position’) 
xlabel('Start of Taper Position') 
ylabel(Tower Coefficient (CP)') 
end 

if get(H_SOT_IT_P8 ,' Value')= 1 

%%%% Plot of Figure of Merit vs Start of Taper Position %%%% 
figure(16) 

plot(startfigmrt),grid 

title('Figure of Merit vs Start of Taper Position') 
xlabel('Start of Taper Position') 
ylabel('Figure of Merit’) 
end 

case 7 
load extra7 

if get(H_W S A_IT_P 1 ,' Value')== 1 
%%%% Total Pwr reqd vs Wing Span Area%%%% 
figure(ll) 

plot(area, Totpwr),hold,grid 
plot(area, RHP.'r') 
plot(area, pwrtail.'g') 

title('Power Required vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Shafit Horsepower') 
legend(Total Power', 'Rotor Power’,'Tail HP',0) 
end 

if get(H_WSA_IT_P2,'Value')= 1 
%%%% Aux Thrust and Drag vs Wing Span Area%%%% 
figure(12) 

plot (area, W ingdrag),hold,grid 
plot(area,Rotdrag,'— ') 
plot(area,auxthrust,V) 

title('Aux Thrust and Drag vs Wing Span Area') 
xlabel('Wing Span Area (fit A 2)') 
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ylabel('Drag (lbs)') 

legend('Wing Drag','Rotor Drag','Aux Thrust', 0) 
end 

if get(H_WSA_IT_P3 ,' Value')= 1 
%%%% Required Collective Pitch vs Wing Span Area%%%% 
figure(13) 

plot(area,coll_pit),grid 

tiUe('Required Collective Pitch vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_WSA_IT_P4,'Value')= 1 
%%%% Wing Lift vs Wing Span Area %%%% 
figure(14) 

plot(area,Winglift),grid 
title('Wing Lift vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Lift (lb)') 
end 

if get(H_WSA_IT_P5,'Value')= 1 
%%%% Tail Rotor Power Required vs Wing Span Area %%%% 
figure(15) 

plot(area,pwrtail),grid 

title(Tail Rotor Power Required vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Tail Rotor Power (HP)') 
end 

if get(H_WSA_IT_P6,'Value')= 1 
%%%% Plot of Coefficient of Thrust vs Wing Span Area %%%% 
figure(16) 

plot(area,Tcoeff),grid 

title('Coefficient of Thrust vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Thrust Coefficient (CT)') 
end 

if get(H_WSA_IT_P7,'Value')= 1 
%%%% Plot of Coefficient of Power vs Wing Span Area %%%% 
figure(17) 

plot(area,Pcoeff),grid 

title('Coefficient of Power vs Wing Span Area') 
xlabel(’Wing Span Area (ft A 2)') 
ylabel('Power Coefficient (CP)') 
end 

if get(H_W S A_IT_P8,' Value')= 1 
%%%% Plot of Figure of Merit vs Wing Span Area %%%% 
figure(18) 

plot(area,figmrt),grid 
title('Figure of Merit vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Figure of Merit') 
end 

if get(H_WSA_IT_P9,'Value')= 1 
%%%% Plot of Disk Loading vs Wing Span Area %%%% 
figure(19) 

plot(area,diskload),grid 
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title('Disk Loading vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Disk Loading') 
end 

if get(H_WSA_IT_P10,'Value’)==l 

%%%% Plot of Wing Lift As % of Total Lift vs Wing Span Area %%%% 
figure(20) 

plot(area,Lperc),grid 

title(’Percent of Total Lift On Wing vs Wing Span Area') 
xlabel('Wing Span Area (ft A 2)') 
ylabel('Percent of Total Lift') 
end 
case 8 
load extra8 

if get(H_RBR_IT_P 1 Value')== 1 
%%%% Total Pwr reqd vs Main Rotor Radius%%%% 
figure(ll) 

plot(mrb_radius, Totpwr),hold,grid 
plot(mrb_radius, RHP,'r') 
plot(mrb_radius, pwrtail,’g') 

title(['Power Required vs Main Rotor Radius at ', num2str(fix(Vinft 1.6878 1)),' Kts’]) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Shaft Horsepower') 

text(L01*min(mrb_radius),.995*max(Totpwr), ['Omega = ' num2str(omega) ' rad/sec']) 
legend(Total Power','Rotor Power','Tail HP',0) 
end 

if get(H_RBRIT_P2,'Value')== 1 
%%%% Aux Thrust and Drag vs Main Rotor Radius%%%% 
figure(12) 

plot(mrb_radius,Wingdrag), hold, grid 

plot(mrb_radius,Rotdrag,'— ') 

plot(mrb_radius,auxthrust,T') 

title('Aux Thrust and Drag vs Main Rotor Radius') 

xlabel('Main Rotor Radius (ft)’) 

ylabel('Drag (lbs)’) 

legend('Wing Drag', 'Rotor Drag','Aux Thrust',0) 
end 

if get(H_RBR_IT_P3,'Value')== 1 
%%%% Required Collective Pitch vs Main Rotor Radius%%%% 
figure(13) 

plot(mrb_radius,coll_pit),grid 
title('Required Collective Pitch vs Main Rotor Radius') 
xlabel('Main Rotor Radius (ft)') 
ylabel('Collective Pitch (degrees)’) 
end 

if get(H_RBR_IT_P4,'Value')== 1 

%%%% Tail Rotor Power Required vs Main Rotor Radius %%%% 
figure(14) 

plot(mrb_radius,pwrtail),grid 

title(Tail Rotor Power Required vs Main Rotor Radius') 
xlabel('Main Rotor Radius (ft)') 
ylabel(’Tail Rotor Power (HP)') 
end 

if get(H_RBR_rr_P5,'Value')== 1 
%%%% Plot of Figure of Merit vs Main Rotor Radius %%%% 
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figure(15) 

plot(rnrb_radius,figmrt),grid 
titleCFigure of Merit vs Main Rotor Radius') 
xlabel('Main Rotor Radius (ft)') 
ylabel('Figure of Merit') 
end 

if get(H_RBR_IT_P6,' Value')== 1 
%%%% Plot of Disk Loading vs Main Rotor Radius %%%% 
figure(16) 

plot(mrb_radius, diskload), grid 
title('Disk Loading vs Main Rotor Radius') 
xlabel('Main Rotor Radius (ft)') 
ylabel('Disk Loading') 

end 
case 9 
load extra9 

if get(H_RBS_IT_Pl ,' Value')= 1 
%%%% Total Pwr reqd vs Main Rotor Speed%%%% 
figure(ll) 

plot(rot_spd, Totpwr),hold,grid 
plot(rot_spd, RHP.'r’) 
plot(rot_spd, pwrtail,'g') 

title(['Power Required vs Main Rotor Speed at ', num2str(fix(Vinf71.68781)),’ Kts')) 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel('Shaft Horsepower') 

text(1.01*min(rot_spd),.995*max(Totpwr), [’Radius = ' num2str(R) ' ft']) 
legend(Total Power','Rotor Power','Tail HP',0) 
end 

if get(H_RBS_IT_P2,'Value')= 1 
%%%% Aux Thrust and Drag vs Main Rotor Speed%%%% 
figure( 12) 

plot(rot_spd,Wingdrag), hold, grid 

plot(rot_spd,Rotdrag,'-') 

plot(rot_spd,auxthrust,'i J ) 

title('Aux Thrust and Drag vs Main Rotor Speed') 

xlabel('Main Rotor Speed (rad/sec)') 

ylabel('Drag (lbs)') 

legend('Wing Drag', 'Rotor Drag', 'Aux Thrust', 0) 
end 

if get(H_RBS_IT_P3,'Value')=l 
%%%% Required Collective Pitch vs Main Rotor Speed%%%% 
figure(13) 

plot(rot_spd,coll_pit),grid 

title('Required Collective Pitch vs Main Rotor Speed') 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel('Collective Pitch (degrees)') 
end 

if get(H_RBS_IT_P4,'Value')= 1 
%%%% Tail Rotor Power Required vs Main Rotor Speed %%%% 
figure(14) 

plot(rot_spd,pwrtail),grid 

title(Tail Rotor Power Required vs Main Rotor Speed') 
xlabel('Main Rotor Speed (rad/sec)’) 
ylabel('Tail Rotor Power (HP)') 
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end 

if get(H_RB S_IT_P5,' Value')= 1 
%%%% Plot of Disk Loading vs Main Rotor Speed %%%% 
figure(15) 

plot(rot_spd, diskload), grid 
title('Disk Loading vs Main Rotor Speed') 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel('Disk Loading') 
end 
end 

OUT_COUNT= 1 ; 
options 
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APPENDIX AA. CREATE PLOTS FCN.M 



Switchyard callback function for createjplots. m 
function createjplots_fcn(Action) 



% Switchyard Callback function for createjplots.m 
% JANRAD 98 VERSION 5.0 

global PICK REGIME H_NO_IT S_MATR_VEC H_NO_IT_Pl H_NO_IT_P2 H_NO_IT_P3 
H_NO_IT_P4 filename3... 

H_AS_IT H_AS_IT_P1 H_AS_IT_P2 H_AS_IT_P3 H_AS_IT_P4 H_AS_IT_P5 H_AS_IT_P6... 

H_AS_IT_P7 H_AS_IT_P8 H_AS_IT_P9 H_AS_IT_P10 H_AL_IT H_AL_IT_P1 H_AL_IT_P2... 

H_AL_IT_P3 H_AL_IT_P4 H_AL_IT_P5 H_GW_IT H_GW_IT_P1 H_GW_IT_P2 H_GW_IT_P3 ... 

H_GW_IT_P4 H_GW_IT_P5 H_GW_IT_P6 H_GW_IT_P7 H_GW_IT_P8 H_GW_IT_P9 H_BT_IT 
H_BT_IT_P1 ... 

H_BT_IT_P2 H_BT_IT_P3 H_BT_IT_P4 H_BT_IT_P5 H_BT_IT_P6 H_BT_IT_P7 H_BT_IT_P8... 

H BTR IT H_BTR_IT_P1 H_BTR_IT_P2 H_BTR_IT_P3 H_BTR_IT_P4 H_BTR_IT_P5... 

H_BTR_IT_P6 H_BTR_IT_P7 H_BTR_IT_P8 H_SOT_lT H_SOT_IT_Pl H_SOT_IT_P2 
H_SOT_IT_P3 . . . 

H_SOT_IT_P4 H_SOT_IT_P5 H_SOT_IT_P6 H_SOT_IT_P7 H_SOT_IT_P8... 

H_WSA_IT H_WSA_IT_P1 H_WSA_IT_P2 H_WSA_IT_P3 H_WSA_IT_P4 H_WSA_IT_P5... 

H_WSA_IT_P6 H_WSA_IT_P7 H_WSA_IT_P8 H_WSA_IT_P9 H_WSA_IT_P10 H RBR IT 
H RBR IT Pl H_RBR_IT_P2... 

H_RBR_IT_P3 H_RBR_IT_P4 H_RBR_IT_P5 H_RBR_IT_P6 H_RBS_IT H_RBS_IT_P1 
H_RBS_IT_P2 H_RBS_IT_P3... 

H_RBS_IT_P4 H_RBS_IT_P5 

if nargin 

switch Action 

case 'plots' 
if PICK=0 
create_plots 
close (H_NO_IT) 
end 

ifPICK=l 
create_plots 
close (H_AS_IT) 
end 

if PICK=2 
createjplots 
close (H_AL_IT) 
end 

if PICK=3 
create_j>lots 
close (H GW IT) 
end 

if PICK=4 
create_plots 
close (H_BT_IT) 
end 

if PICK=5 
createjplots 
close (H_BTR_IT) 
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end 

if PICK=6 
CTeate_plots 
close (H_SOT_IT) 
end 

if PICK=7 
create_plots 
close (H_WSA_IT) 
end 

if PICK=8 
create_plots 
close (H_RBR_IT) 
end 

if PICK=9 
create_plots 
close (H_RBS_IT) 
end 

case 'back' 
options 

close (H_NO_IT) 
end 
end 
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APPENDIX AB. STABILITY AND CONTROL.M 



This file creates figure window indicating the stability and control functions have 
not been incorporated. 



function stability_and_control() 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load stability_and_control 

a = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'MenuBarVnone', ... 

'Name', 'Stability and Control Not Installed', ... 

'NumberTitleVoff, ... 

'PointerShapeCData',matl, ... 

'Position', [0.190625 0.383333 0.446875 0.34375], ... 

'Tag'/Figl'); 

b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'Callback', 'close(gcf)', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position', [0.3881 12 0.109091 0.202797 0.181818], ... 

'String', 'OK', ... 

'Tag','Pushbuttonl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position',[0.0839161 0.515152 0.811189 0.345455], ... 

'String',The Stability and Control Function is not yet Avalilable in JANRAD98', ... 
'Style', 'text', ... 

'Tag','StaticText 1’); 
b = uicontrol('Parent',a, ... 

'Units’,'normalized', ... 

BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 
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'Font Weight’, ’bold', ... 

'Position', [0.332168 0.357576 0.318182 0.127273], ... 
'String', 'SORRY!', ... 

'Style', 'text', ... 

’Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

’BackgroundColor’, [0.752941 0.752941 0.752941], ... 
'Position', [0.013986 0.0363636 0.972028 0.933333], ... 
'Style', 'frame', ... 

’Tag','Framel’); 
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APPENDIX AC. ROTOR DYNAMICS.M 



This file creates figure window indicating the rotor dynamics functions have not 
been incorporated. 



function rotor_dynamics() 

% JANRAD version 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load rotor_dynamics 

a = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'MenuBar','none', ... 

'Name', 'Rotor Dynamics Not Installed', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.190625 0.3875 0.45625 0.339583], ... 

Tag'.TigT); 

b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'Callback', 'close(gcf)', ... 

'FontSize',14, ... 

'FontWeight',bold', ... 

'Position', [0.389078 0.153374 0.204778 0.184049], ... 

'String', 'OK', ... 

'Tag', 'Pushbutton 1 ') ; 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Font Weight', bold', ... 

'Position', [0.0821918 0.595092 0.849315 0.319018], ... 

'String', The Rotor Dynamics Function is not yet Avalilable in JANRAD98', ... 
'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'FontSize',12, ... 
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'FontWeight'.'boId', ... 

'Position', [0.33447 1 0.429448 0.317406 0.122699], ... 
'String', 'SORRY!', ... 

'Style', 'text', ... 

Tag','StaticText2’); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundCoIor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0205479 0.0306748 0.962329 0.93865], ... 
'Style', 'frame', ... 

'Tag','Framel'); 
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APPENDIX AD. TRIM WARNING. M 



This file creates GUI to inform user'that the performance routine did not calculate 
a valid solution. 



function trim_waming() 

% GUI window to notify user that conditions will not trim. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load trim_waming 

a = figure('Units','normalized', ... 

’Color’, [0.8 0.8 0.8], ... 

'Colormap'.matO, ... 

’MenuBar','none', ... 

'Name', 'WARNING!', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

’Position’, [0. 184375 0.352083 0.5375 0.404167], ... 

'Tag', "Fig 1 '); 

b = uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'Position', [0.07558 14 0.551546 0.825581 0.103093], ... 

'String', This configuration will not trim !', ... 

'Style', 'text', ... 

'Tag'/StaticTextl'); 
b = uicontrol('Parent’,a, ... 

'Units','normalized', ... 

'Callback'/trim warning fcn', ... 

'FontSize',14, ... 

'FontWeight'.'bold', ... 

'Position', [0.373547 0.0927835 0.229651 0.164948], ... 

•String’, 'OK', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0755814 0.340206 0.825581 0.170103], ... 
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'String', mat2, ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.07558 14 0.695876 0.825581 0.164948], ... 
'String', 'Performance Analysis Routine Terminated!', ... 
'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0348837 0.0463918 0.924419 0.886598], ... 
'Style', 'frame', ... 

'Tag', 'Frame T); 
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APPENDIX AE. TRIM WARNING FCN.M 



Switchyard Callback for trim_waming.m GUI function. 



function trim_waming_fcn() 

% Switchyard Callback function for trim_waming.m 
% JANRAD 98 VERSION 5.0 

global H_GO H_RUPT H_BK H_RES H_MEN 

set(H_GO, 'Enable', 'off); 
set(H_RUPT,'Enable','ofF); 
set(H_BK, ’Enable', 'on'); 
set(H_RES, 'Enable', ’off); 
set(H_MEN,'Enable’,'on'); 
close(gcf) 



213 



214 



APPENDIX AF. EMPTY BOXES.M 



This file creates GUI to inform user that all input edit boxes must contain a entry 
to properly execute performance evaluation. 



function empty_boxes() 

% GUI window called if Empty edit boxes exist when continue button is pressed. 
% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load empty_boxes 



a = figure('Umts', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

’Colormap',mat0, ... 

'MenuBar','none', ... 

'Name', 'ERROR', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.204688 0.35 0.451563 0.2875], ... 

'Tag', 'Fig 1'); 

b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'Callback', 'close (gcf)', ... 

'FontSize',14, ... 

'Font Weight', *bold', ... 

'Position', [0.40 1384 0.0942029 0.207612 0.202899], ... 
'String', 'OK', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',a, ... 

TJnits', 'normalized', ... 

•BackgroundColor’, [0.752941 0.752941 0.752941], ... 
TontSize',16, ... 

'FontWeight'.'bold', ... 

'Position', [0.107266 0.652174 0.795848 0.217391], ... 
'String', 'ERROR !’, ... 

'Style','text', ... 

'TagVStaticTextl'); 
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b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.107266 0.333333 0.795848 0.311594], ... 

'String', 'All edit boxes must contain a value to create a new file.', ... 
'Style','text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0380623 0.0507246 0.930796 0.905797], ... 

'Style', 'frame', ... 

'Tag', 'Frame 1'); 
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APPENDIX AG. STRUCTURE. M 



This script M-file creates the input structure S_USER_rNPUT. 



% structure, m 

% Structure Construction for JANRAD98 Perfomiance_input.m 
% JANRAD 98 VERSION 5.0 

S_USER_INPUT=struct(. . . 

'PA', PA,... 

'temp', temp,... 

'Vinf,Vinf,... 

'GW', GW,... 

'omega', omega,... 

'naz',naz,... 

'thetao',thetao,... 

'Swing', Swing,... 

^ wing', b wing,... 

'CLwing',CLwing,... 

'CDowing', CDowing, . . . 

'ewing',ewing,... 

'afoil'.afoil,... 

'a',a,... 

V,b r - 

'R',R,... 

'e',e,... 

'grip',grip,... 

'rchord',rchord,... 

tr',tr,... 

'trst',trst,... 

'twist', twist,... 

'wblade',wblade,... 

'nbe',nbe,... 

'Taux',Taux,... 

'Afh',Afh,... 

'Afv',Afv,... 

'Svert',Svert,... 

'bvert',bvert,... 

'CLvert'.CLvert,... 

'CDovert',CDovert,. .. 

'Shoriz',Shoriz,... 

*bhoriz',bhoriz,... 

'CLhoriz',CLhoriz,... 

'CDohoriz',CDohoriz,... 

'tailrot',taiirot,... 

'taildisk'.taildisk,... 

'CON_R',CON_R,... 

'CONchord', CON_chord, . . . 



217 



•CONb’.CONb,... 
'CON_omega',CON_omega,. . . 
'CONcd', CON_cd, . . . 
*CON_lt',CON_lt); 
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APPENDIX AH. STRUCTURE1.M 



This script M-file creates the output structure S JPERFOUTPUT. 



% structurel.m 

% Structure Consruction for JANRAD98 Performance_outputm 
% JANRAD 98 VERSION 5.0 



S_PERF_OUTPUT= struct(. . . 

T>fuse’,Dfuse,... %Fuselage drag 

'Hrotor’.Hrotor,... %Rotordrag 

'Lwing',Lwing,... %Wing lift 

'Owing', Dwing,... %Wing drag 

’Lhoriz',Lhoriz,... %Horizontal tail lifT 

’Dhoriz',Dhoriz,... %Horizontal tail drag 

l,vert',Lvert,... %Vertical tail side force 

'Dvert', Dvert,... %Vertical tail drag 

'alphaT',alphaT*57.3,... %Tip path angle 
'betao',betao*57.3,... %Rotor coning angle 

'rT2',rT2,... %Location of mean thrust 

'thetao',thetao*57.3,... %Rotor Collective pitch at .7 r/R 
'thetalc’,thetalc*57.3,... %lst lat cyclic term-Al (deg) 
’thetals',thetals*57.3,... %lst long cyclic term-Bl (deg) 
'solidity',solidity,... %solidity (sigma) 

%Disk loading 



'DL',DL,... 

'FNrjFM,... 

'CT_sig',CT_sig,... 

’CQ_sig’,CQ_sig,. . . 

'CH_sig’,CH_sig,. . . 

'Machtip',Machtip,... 

'mu',mu,... 

T',T,... 

'Protor’.Protor,... 

’Qrotor’.Qrotor); 



%Figure of Merit 
%CT/sigma 
%CQ/sigma 
%CH/sigma 

%Tip mach of the adv. blade 
%Advance ratio 
%Rotor thrust required (TPP) 
%Rotor power required 
%Rotor torque 



219 









220 




APPENDIX AL STRUCTURE2.M 



This script M-file creates the vector structure S_MATR_VEC. 



% structure2.m 

% Structure Consruction for JANRAD98 Performance_output.m 
% JANRAD 98 VERSION 5.0 



S_MATR_VEC=stmct(. . . 



r,r,... 

'dr',dr,... 

'psi',psi,... 

Vi'.vi,... 

'theta', theta,.. . 
'betat'.betat,... 
'alpha', alpha,... 
Tpsi',Tpsi,... 
'Npsi',Npsi,... 
'Mpsi',Mpsi,... 
'DMpsi',DMpsi,... 



%radial distance 
%differential radial distance 
%azimuth 
%induced velocity 
%collective pitch 
%coning angle 
%angle of attack 
%Thrust at azimuth position 
%Normal Force (lift) at azimuth position 
%Thrust Moment at azimuth position 
%Drag Moment at azimuth position 



'dT'.dT,... 
'dN,dN,„. 
'dM,dM,... 
'dD'.dD,... 
'cblade',cblade,... 
'CL',CL,... 

'CD', CD,... 
'Reff,Re£f); 



%incremental Thrust 
%incremental Normal Force (lift) 
%incremental Thrust moment 
%incremental drag 
%blade chord 
%incremental CL values 
%incremental CD values 
%E£fective Blade Radius 
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APPENDIX AJ. UNSTRUCTURED 



This script M-file decomposes the' S_PERF_INPUT structure into 36 separate 
input parameter variables. These variables are corrected to proper units used in Perf.m 
computations. 



% unstructure, m 

% Structure De-Consruction for JANRAD98 Perf.m 
% JANRAD 98 VERSION 5.0 

PA=S_PERF_INPUT.PA; 
temp= S_PERF_INPUT. temp; 
Vinf=S_PERF_INPUT. Vinf; 

G W=S_PERF_INPUT. GW; 
omega=S_PERF_INPUT. omega; 

na 2 =S_PERF_INPUT.naz; 
thetao= S_PERF_INPUT. the tao ; 
Swing=S_PERF_INPUT. Swing; 
bwing=S_PERF_INPUT.bwing; 
CLwing=S_PERF_INPUT.CLwing; 
CDowing=S_PERF_INPUT. CDowing; 
ewing=S_PERF_INPUT.ewing; 
afoil= SPERFINPUT. afoil ; 

a=S_PERF_INPUT.a; 

b=S_PERF_INPUT.b; 

R=S_PERF_INPUT.R; 
e=S_PERF_INPUT.e; 
grip=S_PERF_INPUT. grip; 
rchord=S_PERF_INPUT.rchord; 
tr=S_PERF_INPUT.tr; 
trst= S_PERF_INPUT. trst; 
twist=S_PERF_INPUT.twist; 
wblade= S_PERF_INPUT. wblade ; 
nbe=S_PERF_INPUT.nbe; 
Taux=S_PERF_INPUT.Taux; 
Afh=S_PERF_INPUT.Afh; 
Afv=S_PERF_INPUT.Afv; 
Svert=S_PERF_INPUT. Svert; 
bvert=S_PERF_INPUT.bvert; 
CLvert=S_PERF_INPUT. CLvert; 
CDovert=S_PERF_INPUT.CDovert; 
Shoriz=S_PERF_INPUT. Shoriz; 
bhoriz=S_PERF_INPUT.bhoriz; 
CLhoriz=S_PERF_INPUT.CLhoriz; 
CDohoriz=S_PERF_INPUT.CDohoriz; 
tailrot=S_PERF_INPUT.tailrot; 
taildisk=S_PERF_INPUT. tail disk; 
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CON_R=S_PERF_INPUT.CON_R; 
CON_chord=S_PERF_INPUT. CON_chord; 
CON_b=S_PERF_INPUT. CONb; 
CON_omega=S_PERF_INPUT.CON_omega; 
CON_cd=S_PERF_INPUT. CON_cd; 
CON_lt= SPERFINPUT. CON_lt; 
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APPENDIX AK. UNSTRUCTURE1.M 



This script M-file decomposes the S_USER_INPUT structure into 36 separate 
input parameter variables. These variables are the actual values the user types or loads 
from a previously saved file 



% unstructure l.m 

% Structure De-Consruction for JANRAD98 Performanceinputm 
% JANRAD 98 VERSION 5.0 

PA=S_USER_INPUT.PA; 

temp=S_USER_INPUT.temp; 

Vinf=S_USER_INPUT.Vinf; 

GW=S_USER_INPUT.GW; 
omega=S_U SER_INPUT. omega; 

na 2 =S_USER_ENPUT.naz; 

thetao=S_USER_ENPUT.thetao; 

Swing=S_USER_ENPUT. Swing; 
bwing=S_U SER_INPUT.bwing; 
CLwing=S_USER_INPUT.CLwing; 

CDowing= SUSERINPUT. CDowing; 
ewing=S_USER_INPUT.ewing; 
afoil=S_USER_INPUT.afoil; 

a=S_USER_INPUT.a; 

b=S_USER_INPUT.b; 

R=S_USER_INPUT.R; 
e=S_USER_INPUT.e; 
grip=S_U SER_INPUT. grip; 
rchord= S_U SER_INPUT. rchord; 
tr=S_USER_INPUT.tr; 
trst= S_USER_INPUT.tr st, 
twist=S_USER_INPUT. twist; 
wblade=S_USER_INPUT.wblade; 
nbe=S_USER_INPUT.nbe; 

Taux=S_USER_INPUT.Taux; 

Afh=S_USER_INPUT. Afh; 

Afv=S_USER_INPUT. AfV; 

Svert=S_USER_INPUT. Svert; 
bvert=S_USER_INPUT.bvert; 

CLvert= S_U SER_INPUT. CLvert ; 
CDovert=S_USER_INPUT.CDovert; 
Shoriz=S_USER_INPUT. Shoriz; 
bhoriz= S_U SER_INPUT. bhoriz; 

CLhoriz=S_USER_INPUT. CLhoriz; 

CDohoriz= S_USER_INPUT. CDohoriz; 
taildisk=S_USER_INPUT.taildisk; 
taiIrot= S_U S ER_INPUT. tailrot; 
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CON_R=S_USER_INPUT. CON_R; 
CON_chord=S_USER_INPUT.CON_chord; 
CON_b=S_U SERINPUT. CON_b; 
CON_omega=S_U SER_INPUT. CONomega; 
CON_cd=S_U SER_INPUT. CON_cd; 
CONJt=S_USER_INPUT.CON_lt; 



APPENDIX AL. UNSTRUCTURE2.M 



This script M-file decomposes the S_PERF_OUTPUT structure into 25 separate 
output parameters. These variables are displayed in the performance output figure 
window. 



% unstructure2.m 

% Structure De-Consruction for JANRAD98 perfonnance_output.m 
% JANRAD 98 VERSION 5.0 

Dfuse=S_PERF_OUTPUT.Dfuse; 

Hrotor= S_PERF_OUTPUT. Hrotor; 
Lwing=S_PERF_OUTPUT.Lwing; 
Dwing=S_PERF_OUTPUT.Dwing; 

Lhonz= S_PERF_OUTPUT. Lhoriz; 
Dhoriz=S_PERF_OUTPUT.Lhoriz; 
Lvert=S_PERF_OUTPUT.Lvert; 

Dvert=S_PERF_OUTPUT.Dvert; 
alphaT=S_PERF_OUTPUT.alphaT ; 
betao=S_PERF_OUTPUT.betao; 
rT2=S_PERF_OUTPUT.rT2; 
thetao=S_PERF_OUTPUT.thetao; 
theta 1 c=S_PERF_OUTPUT. theta 1 c; 
theta I s=S_PERF_OUTPUT. theta 1 s; 

solidity=S_PERF_OUTPUT.solidity; 

DL=S_PERF_OUTPUT.DL; 

FM=S_PERF_OUTPUT.FM; 

CT_sig=S_PERF_OUTPUT.CT_sig; 

CQ_sig=S_PERF_OUTPUT.CQ_sig; 

CH_sig=S_PERF_OUTPUT.CH_sig; 

Machtip=S_PERF_OUTPUT.Machtip; 

mu=S_PERF_OUTPUT.mu; 

T=S_PERF_OUTPUT.T ; 

Protor=S_PERF_OUTPUT.Protor; 

Qrotor=S_PERF_OUTPUT.Qrotor; 
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APPENDIX AM. UNSTRUCTURE3.M 



This script M-file decomposes the S_MATR_VEC structure for use in the print 
and save commands. 



% unstructure3.m 

% Structure De-Consruction for JANRAD98 
% JANRAD 98 VERSION 5.0 



r= S_MATR_VEC.r; 
dr=S_MATR_VEC.dr; 
psi= S_MATR_VEC.psi; 
vi= S_MATR_VEC.vi; 
theta= S_MATR_VEC. theta; 
betat= S_MATR_VEC.betat; 
alpha= S_MATR_VEC. alpha; 
Tpsi= S_MATR_VEC. Tpsi; 
Npsi= S_MATR_VEC.Npsi; 
Mpsi= S_MATR_VEC.Mpsi; 
DMpsi= S_MATR_VEC.DMpsi; 
dT= S_MATR_VEC.dT; 
dN= S_MATR_VEC.dN; 
dM= S_MATR_VEC.dM; 
dD= S_MATR_VEC.dD; 
cblade= S_MATR_VEC.cblade; 
CL= S_MATR_VEC.CL; 

CD= S_MATR_VEC. CD; 

Reff= SMATRVEC.Reff; 
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APPENDIX AN. UNSTRUCTURE5.M 



This script M-file decomposes the S FIT TR structure for use in Perf.m 



% unstmcture5.nl 

% Structure De-Consruction for JANRAD98 compoimd_tailrotor.m 
% JANRAD 98 VERSION 5.0 



FIT_R= S_FIT_TR_INPUT.FIT_R; 

FIT_cd= S_FIT_TR_INPUT.FIT_cd; 
FIT_sigma= S_FIT_TR_INPUT.FIT_sigma; 
FIT_omega= S_FIT_TR_INPUT.FIT_omega; 
FIT_lt= S_FIT_TR_INPUT.FIT_lt; 
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APPENDIX AO. PERF.M 



This script M-file is the primary computational routine for JANRAD 98. It is 
launched from either the iteration_method_fcn.m or iteration_parameter_fcn.m 
Switchyard Callback function. 



% Perf.m 

% Main Performance computation routine. 

% JANRAD 98 VERSION 5.0 

global S_PERF_INPUT S_PERF_OUTPUT S_MATR_VEC H_RADSPC NL_TWIST_VAL 

if S_PERF_INPUT.grip < le-10, 

S_PERF_INPUT. grip= 1 e- 1 0 ; 
end 

if S_PERF_INPUT. Swing < le-10, 

S_PERF_INPUT. Swing= le-10; 
end 

if S_PERF_INPUT.bwing < le-10, 

S_PERF_INPUT.bwing= le-10; 
end 

if S_PERF_INPUT.ewing < le-10, 

S_PERF_INPUT.ewing= le-10; 
end 

if S_PERF_INPUT. Shoiiz < le-10, 

S_PERF_INPUT.horiz=le-10; 

end 

if S_PERF_INPUT.bhoriz < le-10, 

S_PERF_INPUT.bhoriz= le-10; 
end 

if S_PERF_ENPUT. Svert < le-10, 

S_PERF_INPUT.Svert=le-10; 

end 

if S_PERF_INPUT.bvert < le-10, 

S_PERF_INPUT.bvert= le-10; 
end 

S_PERF_INPUT.Vmf=S_PERF_INPUT.Vmf* 1 .68781 ; 

S_PERF_INPUT.twist=abs(S_PERF_INPUT.twist)/57.3; 

S_PERF_INPUT.thetao=S_PERF_INPUT.thetao/57.3; 
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unstructure 



switch PICK 
case 1 

if isempty(MINUM) 

MINUM=0; % sets min airspeed default to 0 kts 
end 

if isempty(MAXUM) 

MAXUM=160; % sets max airspeed default to 160 kts 
end 

if isempty (INTER) 

INTER=20; % sets INTERval default to 20 kts 
end 

if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER= -abs(INTER) ; 
else 

INTER=abs (INTER) ; 
end 



doit 1= 'airspd=itervar,'; 

doit2=Vinf=airspd*6080.2/3600;'; % converts kts to ft/s 
m=(MAXUM-MINlJl^ % computes reqd nbr of elements for vectors 



speed=zeros(l,m); 
mu=zeros(l,m); 
Lperc=zeros(l,m); 
ctonsig=zeros( 1 ,m); 
LoverD=zeros( 1 ,m) ; 
theone-airspd'; 



% vector for each airspeed values 
% vector for adv ratio values 
% vector for wing lift percent values 
% vector for CT/sigma values 
% vector for tot acft W/De 



case 2 

if isempty(MINUM) 

MINUM=0; % sets min altitude default to 0 ft 
end 



if isempty(MAXUM) 

MAXUM= 1 5000; % sets max altitude default to 1 5000 ft 

end 

if isempty(INTER), 

INTER=1000; % sets INTERval default to 1000 ft 

end 

if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER= -abs (INTER) ; 
else 

INTER=abs(INTER) ; 
end 

doit 1 - PA^tervar;'; 

doit2='temp = 59-1.981 le-3/.5555*PA;'; % sets correct ISA temp 
% for given alt (deg F) 

%note: 59=SLS, 103=trop 

m=(MAXUM-MINUM)/INTER+l; % computes reqd nbr of elements for vectors 
altitude=zeros( 1 ,m); 
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theone-PA'; 



case 3 

if isempty(MINUM) 

MINUM= 10000; % sets min GW default to 10000 lbs 

end 

if isempty(MAXUM) 

MAXUM=20000; % sets max airspeed default to 20000 lbs 

end 



if isempty(INTER), 

INTER=2000; % sets INTERval default to 2000 lbs 

end 

if MINUM > MAXUM % ensures INTERval is the correct sign 

ENTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 



doitl='GW=itervar;'; 

doit2=' 

m=(MAXUM-MINUM)/INTER+l ; % computes reqd nbr of elements for vectors 



wt=zeros(l,m); 

Tcoeff=zeros( 1 ,m); 

Pcoefif=zeros(l,m); 
figmrt=zeros( 1 ,m); 
theone-GW'; 

if REGIME== l&PA==0&Vinf<= 16.9 



% vector for GW values 

% vector for Coeff of Thmst values 
% vector for Coeff of Power values 
% vector for Figure of Merit values 



Ptige=zeros(l,m); 

end 



case 4 

if isempty(MINUM) 

MINUM=0; % sets min blade twist default to 0 deg 
end 

if isempty(MAXUM) 

MAXUM=-12; % sets max blade twist default to -12 deg 

end 

if isempty(INTER), 

INTER=-2; % sets INTERval default to -2 deg 
end 

if MINUM > MAXUM % ensures INTERval is the correct sign 

INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl=TWIST=itervar;'; 

doit2='twist=abs(TWIST)/57.3;'; 

m=abs(MAXUM-MINUM)/abs(INTER); % computes reqd nbr of elements for vectors 

thetat=zeros( 1 ,m); % vector for blade twist values 

theone-TWIST'; 



case 5 

if isempty(MINUM) 
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MTNUM= 1 ; % sets min blade taper ratio default to 1 

end 

if isempty(MAXUM) 

MAXUM=0 . 5 ; % sets max blade taper ratio default to 0. 5 

end 

if isempty(INTER), 

INTER=-0. 1 ; % sets INTERval default to -0. 1 

end 

if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER) ; 
else 

INTER=abs(INTER); 

end 

doitl='tr=itervar;'; 

doit2=' 

m=abs(MAXUM-MINUM)/INTER+l ; % computes reqd nbr of elements for vectors 

taper=zeros( l,m); % vector for blade taper ratio values 

theone-tr'; 

case 6 

if isempty(MINUM) 

MINUM=0. 1 ; % sets min blade twist default to 0. 1 r/R 

end 

if isempty(MAXUM) 

MAXUM=0.9; % sets max blade twist default to 0.9 r/R 
end 

if isempty(INTER), 

INTER=0. 1 ; % sets INTERval default to 0. 1 r/R 

end 

if MINUM > MAXUM % ensures INTERval is the correct sign 

INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl-trst=itervar;’; 

doit2- 

m=abs(MAXUM-MINUM)/INTER+ 1 ; % computes reqd nbr of elements for vectors 

start=zeros( 1 ,m); % vector for taper ratio start position values 

theone-trst'; 



case 7 

if isempty(MINUM) 

MINUM=50; % sets min wing area default to 50 sq ft 
end 

if isempty(MAXUM) 

MAXUM=80; % sets max wing area default to 80 sq ft 
end 

if isempty(INTER), 

INTER=5; % sets INTERval default to 5 sq ft 
end 

if MINUM > MAXUM % ensures INTERval is the correct sign 

INTER=-abs(INTER); 
else 
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INTER=abs(INTER) ; 
end 

if isempty(AR) 

AR=6; % sets aspect ratio default to 6 

end 

doit 1 - S wing=i tervar ; 

doit2=hwing=sqrt(AR*Swing);'; % computes wing span given AR and wing area 
m=abs(MAXUM-MI>^ % computes reqd nbr of elements for vectors 

area=zeros(l,m); % vector for wing area values 

theone-Swing'; 



case 8 

if isempty(MINUM) 

MINUM=20; % sets min main rotor radius to 20 feet 

end 

if isempty(MAXUM) 

MAXUM=36; % sets max main rotor radius to 36 feet 
end 

if isempty (INTER), 

INTER=2; % sets INTERval default to 2 feet 
end 

if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER) ; 
else 

INTER=abs(INTER) ; 
end 

doitl =, R=itervar,'; 

doit2- 

m=abs(MAXUM-MINlJM)/r^^ 1 ; % computes reqd nbr of elements for vectors 

mrb_radius=zeros( 1 ,m); % vector for rotor radius values 

theone-R'; 

case 9 

if isempty(MINUM) 

MINUM=20; % sets min main rotor spd to 20 rad/sec 
end 

if isempty(MAXUM) 

N1AXUM=36; % sets max main rotor spd to 36 rad/sec 
end 

if isempty(INTER), 

INTER=2; % sets INTERval default to 2 rad/sec 
end 

if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER) ; 
else 

INTER=abs(INTER) ; 
end 

doit 1- omega=itervar;' ; 
doit2- 

m=abs(MAXUM-MINUM)/I]^^ 1 ; % computes reqd nbr of elements for vectors 

rot_spd=zeros( 1 ,m); % vector for rotor speed values 

theone-omega'; 
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case 0 

MINUM=1; %\ 

MAXUM= 1; % > using these values the for loop is effectively 
INTER=1 ; %! non-existent - will go through only once 
doitl=' 
doit2=' 
end 

%%% common vectors for compilation of iterative data %%% 
if PICK~=0 
thrust=zeros(l,m); 
auxthrust=zeros( 1 , m); 

RHP=zeros(l,m); 

Totpwr=zeros(l ,m); 
angle=zeros(l,m); 

Drag=zeros(l,m); 

RotDrag=zeros( 1 ,m) ; 

Wingdrag=zeros( 1 ,m) ; 

Winglifit=zeros( 1 ,m); 
coll_pit=zeros( 1 , m); 
lat_coeff=zeros( 1 ,m); 
long_coeff=zeros( 1 ,m); 

Auxpwr=zeros(l,m); 
diskload=zeros( 1 ,m); 

Afvl=zeros(l,m); 
rot_spd=zeros( 1 ,m); 
end 



switch tailrot 
case 1 

%%% vectors for Conventional Tail calculations %%% 
if PICK—O 
thrtail=zeros( 1 ,m); 
pwrtail=zeros(l,m); 
end 

A tail = pi*CON_R A 2; % Area of tail 

Atailbl=2*CON_R*CON_chord; 
sigmatail = Atailbl/Atail; % Solidity of tail 
case 2 

%%% vectors for Fan-In Tail calculations %%% 
if PICK~=0 
Tfin=zeros(l,m); 

Tfan=zeros(l,m); 
pwrfani=zeros(l,m); 
pwrfanp=zeros(l ,m); 
pwrfant=zeros(l,m); 
end 

%%% Fan-in-Tail Parameters %%% 
unstructure 5 

Afan = pi*FIT_R A 2; % Area of fan 
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case 3 
end 



%%% Beginning of Iteration Loop %%% 

P=0; 

for itervar = MINIJM:INTER:MAXUM 
eval(doitl) % reads and evaluates the string 'doit 1 ' assigned above 
% assigns itervar to the reqd var needed to complete iteration 
eval(doit2) % reads and evaluates the string 'doit2' assigned above 
% used if input variable needs some type of manipulation 
p=p+l; % used to move to next vector element 

set(H_STATUS,'StringVROTOR PERFORMANCE ROUTINE') 
tic 

set(H_STATUS 1,'StringVSTART ELAPSED TIME') 
pause(3) 

%%% account for vertical drag on wing and horizontal tail %%% 
iftaildisk=l 

Afvl=Afv+3*(Swing+Shoriz); % this assumes a vertical Cd of 1.2 for the 
elseif taildisk=2 % wing and horiz tail and a vertical Cd of 
Afvl=Afv+3* Swing % 0.4 for the fuselage (i.e. 1.2/.4 = 3) 
end % thus making wing/tail effectively larger 

% when hvr thrust calc using Cd=0.4 

trim 

%%% *** Calculation of output parameters *** %%% 

load perftemp % Eccles addition - program was not recog nizin g 
% mchord and DMpsi. 

Paux=(Taux*Vinf)/(550*AUXEFF); %Auxiliary Power reqd 
Protor=mean(DMpsi)*b*omega/550; % Rotor pwr reqd, NOT total pwr 
Qrotor=mean(DMpsi)*b; % Rotor torque reqd 

sohdity=b*mchord/(pi*R); 

CQ=Qrotor/(Adisk*rho*Vtip A 2*R); 

CH=Hrotor/(Adisk*rho*Vtip A 2); 

CT_sig=CT/solidity; 

CQ_sig=CQ/solidity; 

CH_sig=CH/solidity; 

Machtip=(Vtip*cos(alphaT)+Vinf)/(49.05*sqrt(temfH-460)); 
if Vinf< 16.9, 

DL=T/(pi*R A 2); 

FM=(T*sqrt(DL/(2*rho)))/(550*Protor); 

else 

DL=0; 

FM=0; 

end 

switch tailrot 
case 1 

%%%% Conventional Tail Rotor Power Calculations 
Thrustt= Qrotor/CON_lt; % Thrust reqd for anti-torque 
vit=sqrt(Thrustt/2*rho*Atail); 

Ptail=(Thrustt*vit/550)+(((rho*Atailbl*((CON_omega*CON_R) A 3)*CON_cd/8)/550)*(l+3*mu A 2)); 
Pace = 106.25+0.01275*Protor; % Pwr for accessories 
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Ptot = Protor+Ptail+Pacc+Paux; % Total pwr reqd 

CP=Ptot*550/(Adisk*rho* Vtip A 3); % Coefficient of Pwr based on Ptot 

case 2 

%%%% Compute Fan and Access/Xmsn Power Reqd in Fwd Fit %%%% 
vifan = abs(sqrt((Qrotor/FIT_lt-Lvert)/(rho*Afan))); % use abs in case complex 

(Qrotor/FIT_lt-Lvert<0) ; 

Thrnstf = Qrotor/FIT lt; % Thrust reqd for anti-torque 

Pfani = 0.5*rho*Afan*vifan A 3/550; % Fan induced pwr 

Pfanp = rho* Afan*Vtip A 3 *FIT_sigma*FIT_cd/4400; % Fan profile pwr 

Pace = 106.25+0 ,01275*Protor, % Pwr for accessories 

Ptot = Protor+Pfani+Pfanp+Pacc; % Total pwr reqd 

CP=Ptot*550/(Adisk*rho* Vtip A 3); % Coefficient of Pwr based on Rot 

case 3 

end 



%%%% ffiGE total pwr %%%% 
if REGIME==1 



viave=sqrt(DL/(2*rho)); 
delpwi=T*viave*0.23/550; 
Prtrige=Rotor-delpwT; 
Tige=Prtrige * 5 50/(omega*lfan) ; 
vifige=sqrt(Tige/(rho*Afan)); 



% Induced vel - hoge 

% Deer in pwr due to grd effect 
% Rotor pwr - hige 

% Rotor thrust - hige 
% Induce vel - hige 



Pfamge=0.5*rho*Afan*vifige A 3/550; % Fan pwr - hige 
Paccige=106.25+0.01275*Prtrige; % Access pwr - hige 

Rotige=Prtrige+Pfanige+Pfanp+Paccige; % Tot pwr - hige 
end 



WonDe=GW/(550*Rot/(Vinf+. 1)); % Total aeft W/De (lift/drag) 

% . 1 added for case when Vinf=0 
%%% Collecting and vectoring all the calculated data %%% 

%%% vectors specific to desired iteration 
switch PICK 
case 1 

speed(p)=airspd; % vector of airspeeds 

mu(p)=VinWtip; % vector of advance ratios 

ctonsig(p)=CT_sig; % vector of CT on sigma 
LoverD(p)=WonDe; % vector of W/De 
rot_spd(p)=omega; % vector of main rotor speeds 

case 2 

altitude(p)=PA; % vector of altitudes 
case 3 

wt(p)=GW; % vector of GW 

case 4 

thetat(p)=T WI ST; % vector of blade twist 

case 5 

taper(p)=tr, % vector of taper ratio 
case 6 

start(p)=trst; % vector of starting position of blade taper 
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case 7 

area(p)= Swing; % vector of wing wetted area 
case 8 

mrb_radius(p)=R; % vector of main rotor radius 
case 9 

rot_spd(p)=omega; % vector of main rotor speeds 
end 

if REGIME==1 

Ptige(p)=Ptotige; % vector of total hp in hige 

end 

%%% vectors common to all iterations 
if PICK— 0 

thrust(p)=T ; % vector of main rotor thrust 

auxthrust(p)=Taux; % vector of Aux Thrust 
RHP(p)=Protor % vector of rotor hp reqd 
Totpwr(p)=Ptot % vector of total hp reqd 
Auxpwr(p)=Paux; % vector of Aux hp rqd 
angle(p)=alphaT*57.3; % vector of tip path plane angle 
Wingdrag(p)=Dwing; % vector of wing drag 

Drag(p)=Drotor+Dfuse+I>vert+Dhoriz+Dwing; % vector of tot acft drag 
Winglift(p)=Lwing; %vector of wing lift 
Tfin(p)=Lvert; % vector of vertical fin lift 
Lperc(p)=Lwing/GW*100;% vector wing lift percentage 
if tailrot= 1 

thrtail(p)=Thrustt; % vector of tail thrust 
pwrtail(p)=Ptail; % vector of tail power 
else tailrot=2 

Tfan(p)=Qrotor/lfan; % vector of fan thrust 
pwrfani(p)=Pfani; % vector of fan induced pwr 
pwrfanp(p)=Pfanp;% vector of fan profile pwr 
p wTfant (p)= Pfani+Pfanp ; % vector of fan total pwr 

end 



Rotdrag(p)=Hrotor % vector of rotor drag 
Tcoeff(p)=CT ; % vector of Coefficient of Thrust 

Pcoeff(p)=CP; % vector of Coefficient of Power 
figmrt(p)=FM; % vector of Figure of Merit 
diskload(p)=DL; % vector of Disk Loading 
coll_pit(p)=thetao*57.3; %vector of collective pitch@.7R 

lat_coeff(p)=thetalc*57.3; %vector of 1st lateral cyclic term 
long_coeff(p)=thetals*57.3; %vector of 1st longitudinal cyclic term 



%eval(’theone t ); % displays current value of iterative variable 
end % 'end' needed to complete the 'for' loop 

end % this is the 'end' needed to complete the 'for' loop 

%%%% Save iteration data for future processing %%%%%%%%%%%%%%%%%%%%% 0 /o%%%% 
%%% format: save <filename> varl var2 var3 % 

%%% (note: all variables must be valid or will get error) % 

%%% Works well to create short m-file to graph this calculated data % 

%%% just use 'load <filename>' at the beginning of the file to % 
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%%% read all the vectors which are stored in the .mat file % 

ifPICK~=0 

save output Totpwr angle RHP thrust Wingdrag Drag Rotdrag coll_pit lat_coeff long_coeff. 

figmrt Tcoeff Pcoeff Winglift Auxpwr auxthrust Lperc diskload 
if tailrot==l 

save tailop thrtail pwrtail 
else 

save tailop Tfin Tfan pwrfani pwrfanp pwrfant 
end 
end 

switch PICK 
case 1 

save extra 1 speed mu ctonsig LoverD Lperc RHP Tcoeff Pcoeff... 
figmrt m rot_spd 

case 2 

save extra2 altitude 
case 3 

save extra3 wt Tcoeff Pcoeff figmrt 
case 4 

save extra4 thetat 
case 5 

save extra5 taper 
case 6 

save extra6 start 



case 7 

save extra7 area 
case 8 

save extra8 mrb_radius 
case 9 

save extra9 rotspd 
end 

if REGIME==1 
save extra 10 Ptige 
end 



set(H_STATUS, 'String', 'COMPLETING CALCULATIONS ...') 

set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ’ SECONDS']) 

pause(3) 

fid=fopen('print_temp','w+') ; 



fprintf(fid,'\t 

fi) rintf(fid,'\t 
f^)rintf(fid,'\t 
f])rintf(fid,'\t 
fpnntf(fid,'\t 

fj) rintf(fid,’\t 
f]3rintf(fid,'\t 
I])rintf(fid,'\t 



*** MODIFIED USER INPUT ***\n\n'); 
Forward velocity = %6.0f kts\n',Vinf71.69); 

Temperature = %6.0f degs F\n',temp); 
Pressure altitude = %6.0f ft\n',PA); 

Gross weight = %6.0f lbs\n',GW); 
Number of blades = %6.0f \n',b); 

Rotor radius = %6.2f ft\n',R); 

Blade root chord = %6.2f ft\n',rchord); 
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if NL_TWIST_VAL== 1 
fprintf(fid,'\t Blade twist = \ri); 



Q)rintf(fid,'\t 

else 


%6.2f degs\n',NL_TWIST*57.3); 


fprintf(fid,’\t 

end 


Blade twist = %6.2f degs\n’,-l*twist*57.3); 


fprintf(fid,'\t 
fprintf(fid,'\t 
f^>rintf(Cfid, f \t 
fj)rintf(fid,'\t 
f^rintf(fid,'\t 
fprintf(fid,'\t 
fprintf(fid,'\t 
fprintf(fid,'\t 
f^rintf(fid,'\t 
f^rintf(fid/\t 
f^rintf(fid,’\t 
fprintf(fid,'\t 
fj>rintf(fid,'\t 
f^rintf(fid,'\t 
^rintfCfid/M 
fprintf(fid/\t 
f^)rintf(fid,M 
f^rintf(fid,'\t 
f^rintf(fid,'\t 
f^rintf(fid,’\t 
f^rintf(fid,'\t 
fj)rintf(fid,'\t 
f^rintf(fid,'\t 
f^rintf(fid,'\t 
f^rintf(fid,'\t 
fj)rmtf(fid,'\t 


Blade lift curve slope = %6.2f \n',a); 

Blade weight = %6.2f lbs\n',wblade); 
Rotational velocity = %6.2f rads/sec\n', omega); 
Blade grip length = %6.2f ft\n',grip); 

Hinge offset = %6.2f ft\n',e); 

Equivalent flat plate area = %6.2f ft A 2\n',Afh); 
Vertical projected area = %6.2f ft A 2\n',Afv); 

Wing area = %6.2f ft A 2\n', Swing); 

Wing span = %6.2f ft\n',bwing); 

Wing CL = %6.2f \n',CLwing); 

Wing CDo = %6.4f \n',CDowing); 

Wing efficiency factor = %6.2f \n',ewing); 
Horizontal tail area = %6.2f ft A 2Vn',Shonz); 
Horizontal tail span = %6.2f ft\n’,bhoriz); 
Horizontal tail CL = %6.2f \n',CLhoriz); 
Horizontal tail CDo = %6.4f \n',CDohoriz); 
Vertical tail area = %6.2f ft A 2\n',Svert); 
Vertical tail span = %6.2f ft\n',bvert); 

Vertical tail CL = %6.2f \n',CLvert); 

Vertical tail CDo = %6.4f \n',CDovert); 
Auxiliary thrust = %6.0f lbs\n',Taux); 

Number of Azimuths = %6.0f \n',naz); 
Collective Pitch = %6.2f degs\n',thetao*57.3); 
Airfoil Type = %6.0f \n',afoil); 

Taper Ratio = %6.2f \n',tr); 

Taper Ratio Starts At = %6.2f ft\n',trst); 



fprintf(fid,'\t Number of Blade Elements = %6.0f \n',nbe); 
fbruitf(fid,'\t Tail Under Main Rotor (1-yes 2-no) = %6.0f Vf,taildisk); 
fclose(fid); 

% *** output to disk (text file) *** 

fid=fopen('print_temp l','w+'); 

fprintf(fid,'\t *** RESULTS ***Vn\n'); 



fprintf(fid,’\t 

^)rintf(fid,'\t 

fyrintfCfid^t 

^>rintf(fid,'\t 

f^rintf(fid, , \t 

f^rintfCfid/U 


Forward velocity = %6.0f kts\n',Vinf/1.69); 

Temperature = %6.0f degs F\n',temp); 
Pressure altitude = %6.0f ft\n',PA); 

Gross weight = %6.0f lbs\n',GW); 
Number of blades = %6.0f \n',b); 

Rotor radius = %6.2f ft\n',R); 



fprintf(fid,'\t Blade mean chord = %6.2f ft\n',mchord); 
if NL_TWIST_VAL== 1 
fpnntf(fid,'\t Blade twist = \n'); 

fpnntf(fid,'\t %6.2f degs\n',NL_TWIST*57. 3); 

else 
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fprintf(fid,'\t Blade twist = %6.2f degs\n',-l *twist*57.3); 

end 

fprintf(fid,'\t Blade lift curve slope = %6.2f \n',a); 
fpnntf(fid,'\t Blade weight = %6.2f lbs\n',wblade); 

fj>rintf(fid,'\t Rotational velocity = %6.2f rads/sec\n', omega); 

fj)rintf(fid,'\t Blade grip length = %6.2f ft\n',grip); 
fj)rintf(fid,'\t Hinge offset = %6.2f ft\n',e); 

fprintf(fid,'\t Equivalent flat plate area = %6.2f ft A 2\n',Afh); 
fprintf(fid,'\t Vertical projected area = %6.2f ft A 2\n',Afv); 
fpruitf(fid,'\t Wing area = %6.2f ft A 2\n',Swing); 

fj)rintf(fid,'\t Wing span = %6.2f fi\n',bwing); 

fprintf(fid,'\t Wing CL = %6.2f \n\CLwing); 

fprintf(fid,'\t Wing CDo = %6.4f \n',CDowing); 

fj)rintf(fid,'\t Wing efficiency factor = %6.2f \n',ewing); 
fjjrintf(fid,'\t Horizontal tail area = %6.2f ft A 2\n',Shoriz); 

fprintf(fid,'\t Horizontal tail span = %6.2f ft\n',bhoriz); 

fprintf(fid,'\t Horizontal tail CL = %6.2f \n',CLhoriz); 
fj)rintf(fid,'\t Horizontal tail CDo = %6.4f \n',CDohoriz); 
fj)rintf(fid,'\t Vertical tail area = %6.2f ft A 2\n',Svert); 

fj)rintf(fid,'\t Vertical tail span = %6.2f ft\n',bvert); 
fj)rintf(fid,'\t Vertical tail CL = %6.2f \n',CLvert); 

fjprintf(fid,'\t Vertical tail CDo = %6.4f \n',CDovert); 
fj)rmtf(fid,'\t Fuselage drag = %6.0f lbs\n',Dfuse); 

fj>rintf(fid,'\t Rotor drag = %6.0f lbs\n',Hrotor); 

fj)rintf(fid,'\t Wing lift = %6.0f lbs\n',Lwing); 

f^rintf(fid,'\t Wing drag = %6.0f lbs\n',Dwing); 

fj)rintf(fid,'\t Horizontal tail lift = %6.0f lbs\n',Lhoriz); 
lj)rintf(fid,'\t Horizontal tail drag = %6.0f lbs\n',Dhoriz); 
fj 3 rintf(fid,'\t Vertical tail side force = %6.0f lbs\n’,Lvert); 
fj>rintf(fid,'\t Vertical tail drag = %6 .Of lbs\n',Dvert); 
fj>rintf(fid,'\t Auxiliary thrust = %6.0f lbs\n',Taux); 

fj)rintf(fid,'\t Tip path angle = %6.2f degs\n',alphaT*57.3); 

fj)rmtf(fid,'\t Rotor coning angle = %6.2f degs\n',betao*57.3); 
fj)rintf(fid,'\tLocation of mean thrust (r/R) = %6.2f \n',rT2); 
fprmtf(fid,'\t Collective pitch at .7 r/R = %6.2f degs\n',thetao*57.3); 
ft)rintf(fid,'\t 1st lat cyclic term-Al (deg) = %6.2f \n',thetalc*57.3); 
ft)rintf(fid,'\tlst long cyclic term-Bl (deg) = %6.2f \n',thetals*57.3); 
fj)rintf(fid,'\t solidity = %6.3f \n',solidity); 

fj)rintf(fid,'\t Disk loading = %6.2f lbs/ft A 2\n’,DL); 

fprmtf(fid,'\t Figure of Merit = %6.2f \n',FM); 

fprintf(fid,'\t CT/sigma = %6.3f \n',CT_sig); 

fj)rintf(fid,'\t CQ/sigma = %6.4f \n',CQ_sig); 

ft>rintf(fid,'\t CH/sigma = %6.4f \n',CH_sig); 

fj)rintf(fid,'\t Tip mach of the adv. blade = %6.3f \n',Machtip); 
fj)rintf(fid,'\t Advance ratio = %6.3f \n',mu); 

fj)rintf(fid,'\t Rotor thrust required (TPP) = %6.0f lbs\n',T);; 
fj)rintf(fid,'\t Rotor power required = %6.0f h.p.\n',Protor); 
fpnntf(fid,'\t Rotor torque = %6.0f ft-lbs\f ,Qrotor); 

fclose(fid); 

% *** Configuring variables for output *** 



theta=theta*57.3; 

%betat=[betattwist*(0.7-(Reff+(R-Reff)/2)/R)]*57.3; 
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alpha=alpham*57. 3 ;,alpha= [alpha zeros(size(psi))] ; 

Mpsi=Mpsi(:,length(Mpsi(l,:))-l); 

dM=[dM ddM]; 

psi=psi*57.3; 

r=[r (R-(R-Reff)/2)]; 

vi=[vi 0]; 

set(H_STATUS,’StringVSTAND BY FOR OUTPUT...') 
pause(3) 

structure 1 
stxucture2 

set(H_ST ATU S String', ") 

performance_output 

close(HJT_METH) 
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APPENDIX AP. TRIM.M 



This script M-file is a subroutine to trim the rotor system. It is called in Perf.m. 



% Trimm 

% Trim routine for collective/cyclic. 

% JANRAD 98 VERSION 5.0 

global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 



if get(H_AS,'Value')==l 
IT_PARAM=' AIRSPEED’; 

ITJJNIT-KTS'; 
elseif get(H_AL,'Value')=l 
IT_PARAM=’ ALTITUDE’; 

IT_UNIT=’FT; 
elseif get(H_GW,'Value’)= 1 
IT_P ARAM-GROSS WEIGHT'; 

IT_UNIT='LBS'; 
elseif get(H_BT,'Value’)= 1 
IT_PARAM='BLADE TWIST'; 

IT_UNIT='DEG’; 
elseif get(H_BTR,'Value')= 1 
IT_PARAM='BLADE TAPER RATIO'; 
rr_UNIT="; 

elseif get(H_SOT,'Value')==l 
ITJPARAM='START OF TAPER'; 

IT_UNIT=’FT; 

elseif get(H_WSA,'Value')== 1 
IT_PARAM='WING SPAN AREA’; 

IT_UNIT='FT A 2'; 
elseif get(H_RBR,'Value')= 1 
IT_PARAM='ROTOR BLADE RADIUS’; 

IT_UN1T=TT; 
elseif get(H_RBS,'Value')=l 
IT_PARAM='ROTOR BLADE SPEED’; 

IT_UNIT='RAD/SEC'; 

end 

set(H_STATUS, ’String', EXECUTING ROTOR TRIM ROUTINE') 
set(H_STATUS 1 , 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS’]) 
if get(H_NI,'Value')=l 
set(H_ST ATUS3 ,'String',") 
else 

set(H_STATUS3, 'String', ['ITERATION PARAMETER: ’ IT PARAM ’ = ' num2str(itervar) 
num2str(IT_UNIT)] ) 
end 

pause(3) 
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% *** calculation of required parameters *** 
rho=.002377*(-.00003 1 *PA+(-.002*tempf 1.118)) 

% *** first guess at rotor profile drag ( H force) *** 
if Vinf < 16.9, 

Drotor=0; 

else 

Drotor=Vinf*(rho/.002377); 

end 



q=0.5*rho*Vinf A 2; 



Adisk=pi*R A 2; 



Vtip=omega*R; 
temp_rank=temp+459.67; 
spd_snd=49. 1 *sqrt(temp_rank); 

Dfuse=q*Afh; 

CDwing=CDowing+(CLwing A 2/(ewing*pi* (bwing A 2/Swing))) ; 

CDhoriz=CDohoriz+(CLhoriz A 2/(.8*pi*(bhoriz A 2/Shoriz))); 

CDvert=CDovert+(CLvert A 2/(.8*pi*(bvert A 2/Svert))); 

Dwing=q*CDwing*Swing; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q* CDvert* Svert ; 

AUXEFF=.7; 
if NE W_AUX_VAL== 1 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 
if Vinf<16.9 
Taux=0; 
else 

Taux=Dftotal; 

end 

S_PERF_INPUT.Taux=Taux; 

S_USER_INPUT.Taux=Taux; 

else 

Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux 

end 

Lwing=q*CLwing* Swing 
Lhoriz=q*CLhoriz* Shoriz; 
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Lvert=q*CLvert*Svert; 

Lftotal=Lwing+Lhoriz+Lvert; 
if FIX_TPP_VAL== 1 
alphaT=NEW_TPP; %set tip path angle 
else 

alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

end 

mu=VmPcos(alphaT)/Vtip; 

if Vinf < 16.9, 

T=1.05*GW 

else 

T=(GW-Lftotal)/cos(alphaT) 

end 

CT=T/(Adisk*rho*Vtip A 2); 

% Values to check output 

% *** setup blade radius elements, azimuth elements, 

% induced velocity distributions, and determination 

% of coning angle and tip loss parameter *** 

B=l-(sqrt(2*CT)/b); 

Reff=B*R; 

Rbar=Reff-e; 

if RADSPC_VAL== 1 
NEW_r 1= [NEW_r, Reff/R]; 
n=length(NEW_r 1 ); 
dr=diff(NEW_rl)*R; 
r=(NEW_rl(l:n-l)*R)+dr/2; 
else 

dr=(Reff-grip)/nbe; 

r=grip:dr:Reff-dr;,r=r+dr/2; 

end 

if NL_TWIST_VAL== 1 
NL_TWIST=NL_TWIST/57.3; 
n=length(NL_TWIST); 
if RADSPC_VAL== 1 

y=((Reff/R)-NE W_r(n))*((NL_T WIST (n)-NL_TWIST (n- 1 ))/(NE W_r(n)- NEW_r(n-l))); 
else 

y=((Rcff/R)-r(n))*((NL_TWIST(n)-NL_TWIST(n-l))/(r(n)- r(n-l))); 
end 

NL_TWIST1=[NL_TWIST (NL_TWIST(n)+y)]; 
m=length(NL_TWISTl); 
dTW=difif(NL_TWIST 1 ); 
twist=(NL_T WIST 1 ( 1 : m-1 ))+dTW/2; 
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betat=twist; 

else 

betat=twist*(0.7-(r/R)); 

end 

rTl=0.7;,% *** first guess at rT *** 

RbarT =rT 1 * Rbar; 
mblade=wblade/32. 17; 

betao=asin((T/b*RbarT-(.5*(R-e)+e)*wblade)/((.5*(R-e)+e) A 2*omega A 2*mblade)); 

psi=0:360/naz:360-360/naz;,psi=psi'/57.3; 

%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 

%% cblade=vector of blade element chord lengths 
%% tr= taper ratio (tip/root) 

%% trst=taper ratio start position (r/R) 

cblade=rchord*ones(size(r)); % gives all elements same chord length initially 
if tr=0 % prevents division by zero later in code 
tr=l; % in case 0 is enter for taper ratio instead 
end % of 1 for no taper 
if trst=0 

slope=(rchord-rchord*tr)/(Reff-grip); % Modifies each element 
cblade=cblade-slope*(r-grip); % chord length wrt input 

tchord=cblade(nbe); % taper ratio which has been 

mchord=sum(cblade)/nbe; % been converted into a slope 

% top portion takes into 

else % account the possibility that 

slope=(rchord-rchord*tr)/(R*(l-trst));% a 0 start position is really at 
z=fix(nbe*trst); % the start of the aero portion 
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if z<= 1 % prevents beginning index fm being zero 

z=l; 
end 

cblade(z:nbe)=cblade(z:nbe)-(r(z:nbe)-r(z))*slope; 

tchord=cblade(nbe); 

mchord=sum(cblade)/nbe; 

end 

% *** induced velocity determination *** 
if Vinf < 16.9, 

A=4*pi; 

Bv=(b/2)*omega*a. *cblade; 

Tv=0; 

delT=T-Tv; 

while abs(delT) > .01*T% Prouty Eqns for Hover 
thetav=betat+thetao; 

C=(-b/2). *cblade*omega A 2.*r*a. *thetav; 
vi=(-Bv+sqrt(Bv. A 2-(4* A* C)))/(2 * A); 

dTv=(b/2)*rho*((omega*r). A 2)*a*(thetav-(vi./(omega*r))).*cblade.*dr; 

Tv=sum(dTv); 

delT=T-Tv; 

if delT < 0, 

thetao=thetao-0.5 *thetao*abs(delT/T); 
else 

thetao=thetao+0. 5 *thetao*abs(delT/T); 
end 
end 

else % Wheatley Eqn for Fwd fit 

lamdaT=0; 
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lamda=l; 

while abs(lamdaT-lamda)>le-4 
lamda=lamdaT; 

lamdaT=mu*sin(alphaT)+0.5*CT/sqrt(lamdaT A 2+mu A 2), 



end 



vi=lamdaT*Vtip-Vinf*sin(alphaT); 

vi=vi*ones(size(r)); 

end 

% *** first guess at theta *** 

thetalc=0.035*((0.0006e-3*Vinf A 2+0.244e-3*\ r mf)/0.105); 
thetals=-0.087*((0.0006e-3*Vinf A 2+0.244e-3*Vinf)/0.105); 
theta=thetao+theta 1 c. *cos(psi)+theta 1 s. *sin(psi); 

% *** rotor trimming routine *** 



set(H_STATUS, 'String', 1 TRIMMING COLLECTIVE’) 

set(H_STATUSl, ’String’, [RUN ELAPSED TIME IS ’ num2str(fix(toc)) ’ SECONDS’]) 
pause(3) 

set(H_STATUS2, 'String',") 
k=l; 

error0=(T*.02)+l; 
while abs(errorO) > T*.02 

set(H_STATUS2, ’String’, [COLLECTIVE TRIM ROUTINE IS ON ITERATION # ’,num2str(k)]) 
set(H_STATUSl,'String',[RUN ELAPSED TIME IS ’ num2str(fix(toc)) ’ SECONDS’]) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

if k>l, % Eccles change: These three lines were added. 



error 1; 
end 
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erroiO=T -(mean(T psi)*b); 
if errorO < -T*.02, 

thetao=thetao-0.35 *thetao*abs( 1 . 5*errorO/T)*( 1-mu); 
elseif errorO > T*.02, 

thetao=thetao+0. 3 5 *thetao*abs( 1 . 5 *errorO/T)*( 1 -mu); 
end 

theta=thetao+theta 1 c. *cos(psi)+theta 1 s. *sin(psi); 
if k> 1, 

if abs(errorO) > abs(errorl), 
clc 

trim_waming 
set(H_GO, Enable’, ’off); 
set(H_RES, 'Enable', ’off); 
set(H_RUPT, 'Enable', ’off); 
set(H_BK, 'Enable', ’on’); 
error('*** Did Not Trim ***') 
end 

end 

error l=errorO; 
k=k+l; 

end 

set(H_STATUS,'String’, TRIMMING CYCLIC’) 

set(H_STATUSl, 'String', [’RUN ELAPSED TIME IS ' num2str(fix(toc)) ’ SECONDS']) 

set(H_STATUS2, 'String',") 

pause(3) 

tO=clock; 

k=l; 

erroiO=(((T^ *rTl *(R-grip)) *.04)+ 1 ; 
while errorO > ((T/b) + rTl + (R-grip)) 4: ,04 

set(H_STATUS2, 'String', [’CYCLIC TRIM ROUTINE IS ON ITERATION # ',num2str(k)]) 

set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
time=etime(clock,tO) ; 

if time > 15, 
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set(H_STATUS,'StrmgVSTILL TRIMMING ...') 

set(H_STATUSl, , String’,[ , RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 

set(H_STATUS2,'String', ['CYCLIC TRIM ROUTINE IS ON ITERATION # ’,num2str(k)]) 
pause(2) 
tO=clock; 

end 

Mpsi(:,k)=zeros(size(psi)); 

tmcalc 

theta=[theta theta(:,k)]; 

Mpsi=[Mpsi Mpsi(:,k)]; 

% *** calculation of initial dthetadM *** 

ifk<2, 

theta(:,k+l)=theta(:,k)+0.25/57.3; 

Mpsi(:,k+l)=zeros(size(psi)); 

k=k+l; 

tmcalc 

k=k-l; 

dthetadM=(theta(:,k+l)-theta(:,k))./(Mpsi(:,k+l)-Mpsi(:,k)); 

end 

% *** calculation of M first harmonic parameters *** 

M 1 c=2 *sum(Mpsi( :,k). *cos(psi))/naz; 

Mls=2*sum(Mpsi(:,k).*sin(psi))/naz; 

% *** removal of first harmonic terms from Mpsi *** 

Mpsi(:,k+l)=Mpsi(:,k)-Mlc.*cos(psi)-Mls.*sin(psi); 

delM=Mpsi(:,k+l)-Mpsi(:,k); 

errorO=max(delM)-min(delM); 
if k > 1, 

if errorO > error 1, 
clc 

trimwaming 
set(H_GO,'Enable','ofF) ; 
set (H_RE S, 'Enable' , ’off); 
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set(H_RUPT,'Enable','off); 
set(H_BK, 'Enable', 'on'); 
error('*** END OF PROGRAM ***') 
end 

end 

errorl=errorO; 

% *** calculation of new theta *** 
delM=0.5*(l -mu)*delM; 
theta(:,k+l)=theta(:,k)+(dthetadM.*delM); 
if erroiO <= ((T/b)*rTl*(R-grip))*.04, 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:,k).*sin(psi))/naz; 
else 

thetalc=2*sum(theta(:,k+l) *cos(psi))/naz; 
thetal s=2*sum(theta(:,k+l ). *sin(psi))/naz; 
end 

theta(:,k+ 1 )=thetao+thetalc. *cos(psi)+theta 1 s.*sin(psi); 

% *** calculation of new dthetadM *** 

theta=[theta theta(:,k+l)]; 

Mpsi=[Mpsi Mpsi(:,k+1)]; 

theta(:,k+2)=theta(:,k)+0.25/57.3; 

Mpsi(:,k+2)=zeros(size(Mpsi(:,k+l))); 

k=k+2; 

tmcalc 

k=k-2; 

dthetadM=(theta(:,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:,k)); 

k=k+l; 

end 

set(H_STATUS, 'String', 'AD JUSTING COLLECTIVE') 

set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ’ SECONDS’]) 
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set(H_STATUS2,'StringV') 

pause(3) 

theta=theta(:,k); 



k=l; 

errorO=(T* . 0 1 )+ 1 ; 

while abs(errorO) > T*.01 

Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

errorO=T -(mean(Tpsi)*b); 
if errorO < -T*. 01, 

thetao=thetao-0.25*thetao*abs(1.25*error0/T)*(l-mu); 
elseif errorO > T*.0 1, 

thetao=thetao+0.25*thetao*abs( 1.25*errorO/T)*(l-mu); 
end 

theta=thetao+theta 1 c. *cos(psi)+theta 1 s. *sin(psi); 
if k > 1, 

if abs(errorO) > abs(errorl), 
clc 

trim_waming 
set (H_GO, 'Enable', ’off); 
set(H_RES, 'Enable', ’off); 
set(H_RUPT, 'Enable', 'off); 
set(H_BK, 'Enable', 'on'); 
error('*** END OF PROGRAM ***') 
end 

end 

errorl=errorO; 

k=k+l; 

end 

% *** calculating drag moments *** 

set(H_STATUS2, 'String', 'CALCULATING DRAG MOMENT') 

set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ’ num2str(fix(toc)) ’ SECONDS']) 

pause(2) 
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DMpsi=zeros(size(psi)); 



dmcalc 

% * ** calculating rotor H force * * * 

set(H_STATUS2,’StringVCALCULATING ROTOR DRAG') 
set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ’ num2str(fix(toc)) ' SECONDS’]) 
pause(2) 
if Vinf < 16.9, 

Hrotor=0; 

dT=[dT ddT]; 
dN=[dN ddN]; 

dD=[dD ddD]; 

else 

dT=[dT ddT], 
dN=[dN ddN]; 
dD=[dD ddD]; 

for i=l:length(r)+l, 

Hlc(i)=2*sum(dT(:,i).*cos(psi))/naz; 

Hls(i)=2*sum(dD(:,i).*sin(psi))/naz; 

end 

Hrotor=(((b*cos(alphaT)/2) *(sum(H ls)-sin(betao) *sum(H lc)))+Drotor)/2; 
end 

% *** calculating new rT *** 

rT2=(((mean(Mpsi(: ,length(Mpsi( 1 ,: ))- 1 ))/mean(Tpsi))/R)+rT 1 )/2; 

% * ** check rotor drag and rT, retrim rotor if required * * * 
while abs(Drotor-Hrotor) > 0.2*Hrotor | abs(rTl-rT2) > 0.015*rTl 
if abs(Drotor-Hrotor) > 0.2*Hrotor, 
set(H_STATUS, 'String', 'AD JUSTING ROTOR DRAG') 

set(H_STATUSl, 'String', [’RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
set(H_STATUS2,'String', [’CURRENT ROTOR DRAG = ' num2str(Drotor) ’ LB’]) 
pause(3) 
end 

Drotor=Hrotor; 
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if abs(rTl-rT2) > 0.015*rTl 



set(H_STATUS, ’String', 'AD JUSTING MEAN THRUST LOCATION’) 
set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
set(H_STATUS2, 'String', ['NEW MEAN THRUST LOCATION IS ’ num2s1r(rT2) ’ r/R']) 
pause(2) 
end 

set(H_STATUS, 'String', 'RETRIMMING ROTOR') 

set(H_STATUS 1,'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
pause(3) 

set(H_STATUS2, 'String',") 

dT=dT(:,l:nbe); 

dN=dN(:,l:nbe); 

dD=dD(:,l:nbe); 

% *** recalculating parameters *** 

if FIX_TPP_VAL== 1 
alphaT=NEW_TPP; %set tip path angle 
else 

alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

end 

mu=Vinf*cos(alphaT)/Vtip; 
if Vinf >= 16.9, % Wheatley Eqn for Fwd fit 

T=(GW-Lftotal)/cos(alphaT); 

CT=T/(Adisk*rho*Vtip A 2); 

lamdaT=0; 

lamda=l; 

while abs(lamdaT-lamda)>le-4 
lamda=lamdaT; 

lamdaT=mu*sin(alphaT)+O.5*CT/sqrt0amdaT A 2+mu A 2); 



end 

vi=lamdaT*Vtip-Vinf*sin(alphaT); 

vi=vi*ones(size(r)); 

end 

B= 1 -(sqrt(2*CT)/b); 

Reff=B*R; 



Rbar=Reff-e; 
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if RADSPC_VAL== 1 
NEW_rl=[NEW_r, ReffTR]; 
n=length(NEW_rl); 
dr=diff(NEW_rl)*R; 
r=(NEW_rl(l:n-l)*R)+dr/2; 
else 

dr=(Reff-grip)/nbe; 

r=grip:dr:Reff-dr;,r=r+dr/2; 

end 

RbarT=rT2*Rbar, 

betao=asin((T/b*RbarT-(.5*(R-e)+e)*wblade)/((.5*(R-e)+e) A 2*omega A 2*mblade)); 



% * * ; * trimming collective * * * 



tO=clock; 

k=l; 

error0=(T*.02)+l; 
while abs(errorO) > T*.02 

set(H_STATUS2, 'String', ['ROTOR TRIM ROUTINE IS ON ITERATION # \num2str(k)]) 

set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS’]) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

errorO=T-(mean(Tpsi)*b); 
if errorO < -T*.02, 

thetao=thetao-0.3 5 *thetao*abs( 1 . 5 *errorO/T)* ( 1 -mu); 
elseif errorO > T*.02, 

thetao=thetao+0. 3 5 *thetao*abs( 1 . 5 *errorO/T) *( 1 -mu); 
end 

theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
if k > 1, 

if abs(errorO) > abs(errorl), 
clc 

trim_waming 
set(H_GO, Enable’, ’off); 
set(H_RES, Enable','off ) ; 
set(H_RUPT, Enable', 'off); 



259 



set(H_BK, 'Enable', 'on'); 
error('*** END OF PROGRAM ***') 
end 

end 

error l=errorO; 
k=k+l; 
end 

% *** trimming cyclic *** 
k=l; 

error0=(((T/b)*rT2*(R-grip))*.04)+l; 
while errorO > ((T/b)*rT2*(R-grip))*.04 

set(H_STATUS2,'String',['CYCLIC TRIM ROUTINE IS ON ITERATION # ',num2str(k)]) 
set(H_STATUSl, 'String', ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
time=etime(clock,tO); 

if time > 15, 

set(H_STATUS,'String','STILL TRIMMING ...') 

set(H_STATUSl,'String',['RUN ELAPSED TIME IS ’ num2str(fix(toc)) ' SECONDS']) 
set(H_STATUS2,'String', ['CYCLIC TRIM ROUTINE IS ON ITERATION # ',num2str(k)]) 

pause(3) 

tO=clock; 

end 

Mpsi(:,k)=zeros(size(psi)); 

tmcalc 

theta=[theta theta(:,k)]; 

Mpsi=[Mpsi Mpsi(:,k)]; 

% *** calculation of initial dthetadM *** 

if k < 2, 

theta(: ,k+ 1 )=theta(:,k)+0.25/57. 3; 

Mpsi( : ,k+ l)=zeros(size(psi)); 

k=k+l; 

tmcalc 

k=k-l; 
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dthetadM=(theta(:,k+l)-theta(:,k))./(Mpsi(:,k+l)-Mpsi(:,k)); 

end 

% *** calculation of M first harmonic parameters *** 

M 1 c=2 * sum(Mpsi( : ,k) . * cos(psi))/naz; 

M 1 s=2 * sum(Mpsi(: ,k). *sin(psi))/naz; 

% *** removal of first harmonic terms from Mpsi *** 

Mpsi(:,k+ 1 )=Mpsi(: ,k)-M 1 c. *cos(psi)-M 1 s. *sin(psi); 

delM=Mpsi(:,k+l)-Mpsi(:,k); 

errorO=max(delM)-min(delM); 
ifk> 1, 

if errorO > errorl, 
clc 

trimwaming 
set(H_GO, 'Enable', ’off); 
set(H_RES, 'Enable', 'off); 
set(H_RUPT, 'Enable', ’off); 
set(H_BK,'Enable','on’); 
error('*** END OF PROGRAM ***') 
end 

end 

errorl=errorO; 

% *** calculation of new theta *** 
delM=0.5*(l-mu) + delM; 
theta(: ,k+ 1 )=theta(:,k)+(dthetadM. *delM); 
if errorO <= ((T/b)*rT2*(R-grip))*.04, 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:,k).*sin(psi))/naz; 
else 

theta 1 c=2*sum(theta( :,k+ 1 ). *cos(psi))/naz; 
thetals=2*sum(theta(:,k+l).*sin(psi))/naz; 
end 
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theta(: ,k+ 1 )=thetao+theta lc. *cos(psi)+thetals. * sin(psi); 

% * * * calculation of new dthetadM * * * 
theta=[theta theta(:,k+l)]; 

Mpsi=[Mpsi Mpsi(:,k+1)]; 
theta(:,k+2)=theta(:,k)+0.25/57.3; 

Mpsi(:,k+2)=zeros(size(Mpsi(:,k+l))); 

k=k+2; 

tmcalc 

k=k-2; 

dthetadM=(theta(:,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:,k)); 

k=k+l; 

end 

% *** retrimming collective *** 
theta=theta(:,k); 
k=l; 

error0=(T*.01)+l; 
while abs(erroiO) > T*.01 

set(H_STATUS2, ’String’, [’COLLECTIVE TRIM ROUTINE IS ON ITERATION # ’,num2str(k)]) 
set(H_STATUSl, 'String', [’RUN ELAPSED TIME IS ’ num2str(fix(toc)) ' SECONDS']) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

erroiO=T -(mean(Tpsi)*b); 
if errorO < -T*.01, 

thetao=thetao-0 .25* thetao* abs( 1.25* errorO/T) * ( 1 -mu) ; 
elseif errorO > T*.01, 

thetao=thetao+0.25*thetao*abs(1.25*error0/T)*(l-mu); 

end 

theta=thetao+theta lc. *cos(psi)+thetals. *sin(psi); 
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if k > 1, 

if abs(erroiO) > abs(errorl), 
clc 

trimwarning 
set(H_GO, 'Enable', ’off); 
set(H_RES, 'Enable', ’off); 
set(H_RUPT,'Enable','o£f); 
set(H_BK, 'Enable', 'on'); 
error('*** END OF PROGRAM ***') 
end 

end 

errorl=erroiO; 

k=k+l; 

end 

% *** recalculating rotor H force *** 

ifVinf < 16.9, 

Hrotor=0; 

dT=[dT ddT]; 
dN=[dN ddN]; 

dD=[dD ddD]; 

else 

dT=[dT ddT]; 
dN=[dN ddN]; 

dD=[dD ddD]; 

for i=l:length(r)+l, 

Hlc(i)=2*siun(dT(:,i).*cos(psi))/naz; 

Hls(i)=2*sum(dD(:,i).*sin(psi))/naz; 

end 

Hrotor=(((b*cos(alphaT)/2)*(sum(H 1 s)-sin(betao)*sum(H lc)))+Drotor)/2; 
end 

% *** recalculating rT*** 
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rTl=rT2; 



rT2=(((mean(Mpsi( : ,length(Mpsi( 1 1 ))/mean(Tpsi))/R)+rT 1 )/2 ; 
end 

% *** recalculating drag moments *** 

dT=dT(:,l:nbe); 

dN=dN(:,l:nbe); 

dD=dD(:,l:nbe); 

DMpsi=zeros(size(psi)); 

dmcalc 

dT=[dT ddT]; 
dN=[dN ddN]; 

dD=[dD ddD]; 

set(H_STATUS,'String','ROTOR TRIMMED') 

set(H_STATUS l,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
set(H_STATUS2,'String','IS TfflS BETTER THAN JANRAD 3 OR WHAT?') 
pause(3) 

set(H_STATUS2,'String',") 

save perftemp mchord DMpsi % Eccles addition - perf.m was 
% not recognizing mchord and DMpsi. 
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APPENDIX AQ. THRCALC.M 



This script M-file is a subroutine of Trim, m to calculate the rotor thrust. 



% THRCALC.M 

% thrcalc calculates the total thrust along a blade at 
% each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 

global MESH_VAL MESH_STA AF_MAIN AF_TIP r_mesh 

Up=zeros(size(psi*r)>; 

Ut=zeros(size(Up)); 

dT=zeros(size(Up»; 

dN=zeros(size(Up)); 

ddT=zeros(size(psi)); 

ddN=zeros(size(psi)); 

for i=l:length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Ut(i ) :)=r.*omega+Vuif t cos(alphaT)*sin(psi(i»; 

phi=atan2(Up(i,:),Ut(i,:)); 

alpha=theta(i)+betat-phi; 

% Eccles added the following line for use with Mach dependent afoil files. 

Mach = (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(tempf460)); 
switch MESH_VAL 

case 0 
if afoil==l, 

[CL,CD]=ool2clcd(alpha, Mach); 
elseif afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif afoil==3, 

[CL, CD]=vr 1 2clcd(alpha,Mach); 
elseif afoil==4, 

[CL, CD]=vr 1 5clcd(alpha,Mach); 
elseif afoil==5, 

[CL,CD]=scl094r8clcd(alpha,Mach); 
elseif afoil==6, 

[CL,CD]=scl095r8clcd(alpha,Mach); 

end 

case 1 

r_mesh=find((r./R)<eval(MESH_STA)); 
if AF_MAIN==2, 

[CL_m,CD_m]=ool2clcd(alpha(l:max(r_mesh», Mach(l:max(r_mesh»); 
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elseif AF_MAIN==3, 

[CL_m,CD_m]=hh02clcd(alpha( 1 :max(r_mesh))); 
elseif AF_MAIN==4, 

[CL_m,CD_m]=vrl2clcd(alpha(l:max(r_mesh)), Mach(l:max(r_mesh))); 
elseif AF_MAIN==5, 

[CL_m,CD_m]=vr 1 5clcd(alpha( 1 :max(r_mesh)), Mach( 1 :max(r_mesh))); 
elseif AF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l :max(r_mesh)), Mach(l :max(r_mesh))); 
elseif AF_MAIN==7, 

[CL_m,CD_m]=scl095r8clcd(alpha(l :max(r_mesh)), Mach(l :max(r_mesh))); 
end 

if AF_TIP==2, 

[CL_t,CD_t]=ool2clcd(alpha(max(r_mesh)+l :nbe), Mach(max(r_mesh)+1 :nbe)); 
elseif AF_T1P==3, 

[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+l:nbe)); 
elseif AF_T1P==4, 

[CL_t,CD_t]=vr 12clcd(alpha(max(r_mesh)+ 1 :nbe), Mach(max(r_mesh)+ 1 :nbe)); 
elseif AF_T1P==5, 

[CL_t,CD_t]=vrl5clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_TIP==6 > 

[CL_t,CD_t]=scl094r8clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_TIP==7, 

[CL_t,CD_t]=scl095r8clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
end 

CL=[CL_m CL_t]; 

CD=[CD_m CD_t]; 
end 

dT(i,:)=0.5*rho.*cblade.*dr. + (Up(i,:). A 2+Ut(i,:). A 2).*(CL.*cos(phi)-CD.*sin(phi)); 

Tpsi(i)=sum(dT(i,:)); 

dN(i,:)=0.5*rho.*cblade.*dr.*(Up(i > :)- A 2+Ut(i,:). A 2).*(CL.*cos(alpha)+CD.*sm(alpha)); 

Npsi(i)=sum(dT(i,:)); 



% *** calculations for tip loss area *** 

Uptip=Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(Tl-(R-Reff)/2)*omega+VinPcos(alphaT)*sin(psi(i)); 

phitip=atan2(Uptip,Uttip); 

alphatip=theta(i)+betat(nbe)-phitip; 

ddT(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Reff)*(Uptip A 2+Uttip A 2)*(-.009*sin(phitip)); 

Tpsi(i)=Tpsi(i)+ddT(i); 

ddN(i)=0.5*rho*cblade(nbe)*(0.5-K).5*cos(2*psi(i)))*(R-RefiE)*(Uptip A 2+Uttip A 2)*(-.009*sin(alphatip)); 

Npsi(i)=Npsi(i)+ddN(i); 

end 
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APPENDIX AR TMCALC.M 



This script M-file is a subroutine of Trim. m to calculate the rotor thrust moment. 



% TMCALC.M 

% tmcalc calculates the total thrust moment along a blade 
% at each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 

global MESH_VAL MESH_STA AF_MAIN AF_TIP r_mesh 

Up=zeros(size(psi *r)); 

Ut=zeros(size(Up)); 
dM=zeros(size(Up)); 
ddM=zeros(size(psi)) ; 

for i=l:length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf t 'sin(alphaT)*cos(betao)+Vinf l ‘cos(alphaT)*sin(betao)*cos(psi(i)); 

Ut(i,:)=r.*ornega+Vinf*cos(alphaT) + sin(psi(i)); 

phi=atan2(Up(i, :),Ut(i, :)); 

alpha=theta(i,k)+betat-phi; 



% Eccles added the following line for use with Mach dependent afoil files. 
Mach = (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(temp+460)); 

switch MESHVAL 
case 0 
if afoil==l, 

[CL,CD]=ool2clcd(alpha, Mach); 
elseif afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif afoil==3, 

[CL,CD]=vrl2clcd(alpha,Mach); 
elseif afoil==4, 

[CL, CD] =vr 1 5clcd(alpha,Mach); 
elseif afoil==5, 

[CL, CD] =scl 094r8clcd(alpha,Mach); 
elseif afoil==6, 

[CL, CD] =scl 095r8clcd(alpha,Mach) ; 
end 

case 1 

r_mesh=fmd((r./R)<eval(MESH_ST A)) ; 
if AF_MAIN==2, 

[CL_m,CD_m]=ool2clcd(alpha(l:max(r_mesh)), Mach(l:max(r_mesh))); 
elseif AF_MAIN==3, 
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[CL_m,CD_m]=hh02clcd(alpha( 1 :max(r_mesh))); 
elseif AF_MAIN==4, 

[CL_m,CD_m]=vr 12clcd(alpha( 1 :max(r_mesh)), Mach( 1 :max(r_mesh))); 
elseif AF_MAIN==5, 

[CL_m,CD_m]=vrl5clcd(alpha(l :max(r_mesh)), Mach(l :max(r_mesh))); 
elseif AF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l :max(r_mesh)), Mach(l :max(r_mesh))); 
elseif AF_MAIN==7, 

[CL_m,CD_m]=scl095r8clcd(alpha(l :max(r_mesh)), Mach(l :max(r_mesh))); 
end 

if AF_TIP==2, 

[CL_t,CD_t]=ool2clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_TIP==3 > 

[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+l:nbe)); 
elseif AF_T1P==4, 

[CL_t,CD_t]=vrl2clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_TIP==5, 

[CL_t,CD_t]=vrl5clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+1 :nbe)); 
elseif AF_TIP==6, 

[CL_t,CD_t]=scl094r8clcd(a]pha(max(r_niesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_TIP==7, 

[CL_t,CD_t]=sc 1095r8clcd(alpha(max(r_mesh)+ 1 :nbe), Mach(max(r_mesh)+ 1 :nbe)) ; 
end 

CL=[CL_m CL_t]; 

CD=[CD_m CD_t]; 
end 

dM(i,:)=0.5*rho.*cblade.*r.*dr.*(Up(i,:). A 2+Ut(i,:). A 2).*(CL.*cos(phi)-CD.*sin(phi)); 

Mpsi(i,k)=suni(dM(i,:)); 

% *** calculations for tip loss areas *** 

Uptip=Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(R-(R-RefO/2)*omega+Vinf (! cos(alphaT)*sin(psi(i)); 

phitip=atan2(Uptip,Uttip); 

ddM(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-(R-Reff)/2)*(R-Ref0*(Uptip A 2+Uttip A 2)*(- 

009*sin(phitip)); 

Mpsi(i,k)=Mpsi(i,k)+ddM(i) ; 
end 
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APPENDIX AS. DMCALC.M 



This script M-file is a subroutine of Trim, m to calculate the rotor drag moment. 



% DMCALC.M 

% dmcalc calculates the total drag along a blade at 
% each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 

global MESHVAL MESH_STA AF MAIN AF_TIP r_mesh 

Up=zeros(size(psi*r)); 

Ut=zeros(size(Up)); 

alpham=zeros(size(Up)); 

dD=zeros(size(Up)); 

ddD=zeros(size(psi)); 

ddDM=zeros(size(psi)); 

for i=l:length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf t; sm(alphaT)*cos(betao)+Vinf , 'cos(alphaT)*sm(betao)*cos(psi(i)); 

Ut(i,:)=r.*omega+VinPcos(alphaT)*sin(psi(i)); 

phi=atan2(Up(i, :),Ut(i, :)); 

alpha=theta(i)+betat-phi; 

alpham(i,:)=alpha; 

% Eccles added the following line for use with Mach dependent afoil files. 

Mach = (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(temp+460)); 
switch MESHJVAL 

case 0 
ifafoil==l, 

[CL,CD]=ool2clcd(alpha, Mach); 
elseif afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif afoil==3, 

[CL,CD]=vrl2clcd(alpha, Mach); 
elseif afoil==4, 

[CL,CD]=vrl5clcd(alpha, Mach); 
elseif afoil==5, 

[CL,CD]=scl094r8clcd(alpha,Mach); 
elseif afoil==6, 

[CL,CD]=scl095r8clcd(alpha,Mach); 

end 

case 1 

r_mesh=find((r./R)<eval(MESH_STA)); 
if AF_MAIN==2, 

[CL_m,CD_m]=oo 1 2clcd(alpha( 1 : max(rmesh)), Mach( 1 : max(rmesh))); 
elseif AF_MAIN==3, 

[CL_m,CD_m]=hh02clcd(alpha(l:max(r_mesh))); 
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elseif AF_MAIN==4, 

[CL_m,CD_m]=vr 1 2clcd(alpha( 1 : max(r_mesh)), Mach( 1 : max(r_mesh))); 
elseif AF_MAIN==5, 

[CL_m,CD_m]=vrl5clcd(alpha(l:max(r_mesh)), Mach(l:raax(r_mesh))); 
elseif AF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l:max(r_mesh)), Mach(l:max(r_mesh))); 
elseif AF_MAIN==7, 

[CL_m,CD_m]=scl095r8clcd(alpha(l :max(r_mesh)), Mach( 1 :max(r_mesh))); 
end 

if AF_TEP==2, 

[CL_t, CD_t]=oo 1 2clcd(alpha(max(r_mesh)+ 1 :nbe), Mach(max(r_mesh)+ 1 :nbe)); 
elseif AF_T1P==3, 

[CL_t,CD_t]=hh02clcd(alpha(rnax(r_mesh)+l:nbe)); 
elseif AF_TIP==4, 

[CL_t,CD_t]=vr 1 2clcd(alpha(max(r_mesh)+ 1 :nbe), Mach(max(r_mesh)+ 1 :nbe)); 
elseif AF_TIP==5, 

[CL_t,CD_t]=vrl5clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+1 :nbe)); 
elseif AF_MAIN==6, 

[CL_t,CD_t]=scl094r8clcd(alpha(max(r_mesh)+l:nbe), Mach(max(r_mesh)+l:nbe)); 
elseif AF_HP==7, 

[CL_t,CD_t]=scl095r8clcd(alpha(max(r_mesh)+l:nbe) > Mach(max(r_mesh)+l:nbe)); 
end 

CL=[CL_m CL_t]; 

CD=[CD_m CD_t]; 
end 

dD(i, :)=0. 5 *rho*cblade. *dr. *(Up(i, :). A 2+Ut(i, :). A 2). *(CL. *sin(phi)+CD. *cos(phi)); 
dDM=dD(i,:).*r; 

DMpsi(i)=sum(dDM); 

% *** calculations for tip loss area *** 

Uptip=Vinf* : sin(alphaT)*cos(betao)+Vinf ,! cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(R-(R-Reff)/2)*omega+Vinf‘ : cos(alphaT)*sin(psi(i)); 

phitip=atan2(Uptip,Uttip); 

ddD(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Reff)*(Uptip A 2+Uttip A 2)*(.009*cos(phitip)); 

ddDM(i)=ddD(i)*(R-(R-RefO/2); 

DMpsi(i)=DMpsi(i)+ddDM(i); 

end 
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APPENDIX AT. 0012CLCD.M 



This MATLAB function calculates a ci and Cd for a NACA 0012 airfoil given 
angle of attack and Mach number. It is called in Thrcalc.m, Tmcalc.m and Dmcalc.m 
script M-files. 



% ool2clcd calculates CL and CD for the NACA 0012 
% airfoil given angle of attack in radians and the 
% local Mach number: 

% 

% [CL,CD]=ool2clcd(alpha, Mach) 

% 

% Both 'alpha' and 'Mach' are intended to be vectors 
% the elements of which correspond to the rotor blade 
% radial stations of interest in a blade element analysis. 
% All equations are based on Ray Prouty's treatment of 
% the 0012 in his text. 

% JANRAD 98 VERSION 5.0 

function [CL,CD]=ool2clcd(alpha, Mach) 
CL=zeros(size(alpha)); 

CD=zeros(size(alpha)); 
a=alpha* 180/pi; 
aL = 15 - 16.*Mach; 
aD= 17 - 23.4.*Mach; 

K1 = 0.0233 + 0.342.*(Mach. A 7.15); 

K2 = 2.05 - 0.95.*Mach; 



% CL for Mach numbers < 0.725 and AOA inside +/- 20 deg: 

chk=(Mach<0.725 & a>=0 & a<=aL); 

CL=CL+chk.*((0. l./sqrt(l-Mach A 2) - 0.01.*Mach) *a); 

chk=(Mach<0.725 & a>aL & a<=20); 

CL=CL+chk. *((0. 1 ,/sqrt( 1 -Mach. A 2) - 0.01.*Mach).*a - Kl.*(a-aL) A K2); 
chk=(Mach<0.725 & a>=-20 & a<-aL); 

CL=CL-chk.*((0. l./sqrt(l-Mach. A 2) - 0.01.*Mach).*abs(a) -Kl.*(abs(a)-aL). A IC2); 

chk=(Mach<0.725 & a>=-aL & a<0); 

CL=CL-chk.*((0. l./sqrt(l-Mach A 2) - 0.01.*Mach).*abs(a)); 



% CL for Mach numbers > 0.725 and AOA inside +/- 20 deg: 
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chk=(Mach>=0.725 & a>=0 & a<=aL); 

CL=CL+chk.*((0.677 - 0.744.*Mach).*a); 

chk=(Mach>=0.725 & a>aL & a<=20); 

CL=CL+chk.*((0.677 - 0.744 *Mach).*a - (0.0575-0. 144.*(Mach-0.725). A 0.44).*(a-aL). A (K2)); 



chk=(Mach>=0.725 & a<0 & a>=-aL); 
CL=CL-chk.*((0.677 - 0.744. *Mach).*abs(a)>; 



chk=(Mach>=0.725 & a<-aL & a>=-20); 

CL=CL-chk.*((0.677 - 0.744. *Mach).*abs(a) - (0.0575-0. 144.*(Mach-0.725) A 0.44).*(abs(a)-aL). A (K2>); 



% CL for all Mach numbers and AOA outside +/- 20deg: 

chk=(a>20 &a<=161); 

CL=CL+chk.*(l. 15.*sin(2.*alpha)); 

chk=(a>161 & a<=173); 

CL=CL+chk.*(-0.7); 

chk=(a>173 & a<=180); 

CL=CL+chk.*(0. l.*(a-180)); 



chk=(a>=-180 & a<=-173); 
CL=CL+chk.*(0. 1 *(a+180)); 

chk=(a>-173 & a<=-161); 
CL=CL+chk.*(0.7); 

chk=(a>-161 & a<-20); 
CL=CL+chk.*(l. 15.*sin(2.*alpha)); 



% CD for Mach numbers < 0.725 and AOA inside +/- 20 deg: 
chk=(Mach<0.725 & a>=0 & a<=aD); 

CD=CD+chk. *(0.0081 + (-350.*a + 396.*a. A 2 - 63.3.*a A 3 + 3.66.*a A 4).*10. A (-6)); 
chk=(Mach<0.725 & a>aD & a<=20); 

CD=CD+chk. *((0.0081 + (-350.*a + 396.*a. A 2 - 63.3.*a. A 3 + 3.66.*a. A 4).*10. A (-6)) + 0.00066.*(a- 
aD) A 2.54); 

chk=(Mach<0.725 & a<0 & a>=-aD); 

CD=CD+chk.*(0.0081 + (-350.*abs(a) + 396.*a A 2 - 63.3.*abs(a). A 3 + 3.66.*a. A 4).*10 A (-6)); 
chk=(Mach<0.725 & a<-aD & a>=-20); 

CD=CD+chk. *((0.0081 + (-350.*abs(a) + 396.*a. A 2 - 63.3.*abs(a) A 3 + 3.66.*a. A 4).*10 A (-6)) + 
0.00066.*(abs(a)-aD). A 2.54); 
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% CD for Mach numbers > 0.725 and AOA inside +/- 20 deg: 
chk=(Mach>=0.725 & a>=0 & a<=20); 

CD=CD+chk. *((0.0081 + (-350.*a + 396.*a. A 2 - 63.3.*a. A 3 + 3.66. *a A 4).*10 A (-6)) + 0.00035.*a A 2.54 + 
2 1 . *(Mach-0.725). A 3 .2); 

chk=(Mach>=0.725 & a<0 & a>=-20); 

CD=CD+chk. *((0.0081 + (-350.*abs(a) + 396.*a A 2 -63.3.*abs(a). A 3 + 3.66.*a A 4).*10. A (-6)) + 

0.00035. *abs(a). A 2.54 + 21.*(Mach-0.725) A 3.2); 



% CD for all Mach numbers and AOA outside +/- 20deg: 

chk=(a>20 & a<=180); 

CD=CD+chk.*(1.03 - 1.02.*cos(2.*alpha»; 

chk=(a>=-180 & a<-20); 

CD=CD+chk.*(1.03 - 1.02.*cos(2.*alpha)); 
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APPENDIX AU. HH02CLCD.M 



This MATLAB function calculates a Ci and Cd for an HH-02 airfoil given angle of 
attack. It is called in Thrcalc.m, Tmcalc.m and Dmcalc.m script M-files. 



function [CL,CD]=hh02clcd(alpha) 

% hh02clcd calculates CL and CD for an HH-02 airfoil 
% given angle of attack (alpha) in radians 
% [CL, CD]=hh02clcd(alpha) 

% JANRAD 98 VERSION 5.0 

CL=zeros(size(alpha)); 

CD=zeros(size(alpha)); 
a=alpha* 180/pi; 

chkl=(a>=20 & a<=180); 

CL=CL+chkl.*(0.42541+0.026863*a+5.5988e-4*a A 2-2.1493e-5*a. A 3+1.5932e-7*a A 4-3.4659e-10*a. A 5); 
CD=CD+chkl.*(-0.7179+0.061213*a-5.9861e-4*a. A 2+7.3708e-6*a A 3-6.6605e-8*a A 4+1.913e-10*a A 5); 



chkl=(a>=-180 & a<=-50); 

CL=CL+chkl. *(-4.6183 -0.1923*a-3.5554e-3*a. A 2-3.3273e-5*a. A 3-1.4528e-7*a A 4-2.3003e-10*a. A 5); 
CD=CD+chkl.*(2.7093e-2-2.1309e-2*a+2.0335e-4*a. A 2+3.47e-7*a. A 3-3.0586e-8*a A 4-1.2584e-10*a. A 5); 

chkl=(a>-50 & a<-20); 

CL=CL+chkl.*(-2.5519-0.22847*a-9.5667e-3*a A 2-1.7051e-4*a. A 3-1.0909e-6*a. A 4); 

CD=CD+chkl.*(2.7093e-2-2.1309e-2*a+2.0335e-4*a A 2+3.47e-7*a. A 3-3.0586e-8*a A 4-1.2584e-10*a A 5); 



chkl=(a>=-20 & a<=-10); 

CL=CL+chkl.*(-0.2+0.089*a+0.0034*a A 2); 

CD=CD+chkl.*(2.7093e-2-2.1309e-2*a+2.0335e-4*a. A 2+3.47e-7*a. A 3-3.0586e-8*a A 4-1.2584e-10*a. A 5); 
chkl=(a<20 & a>-10); 

CL=CL+chkl.*(5.8766e-2+1.3131e-l*a+2.4742e-3*a A 2-5.303e-4*a. A 3-1.5818e-5*a. A 4+1.28e-6*a. A 5); 

chk2=a<-4; 

chk2=chk2.*chkl; 

CD=CD+chk2.*(1.3786+0.916*a+0.21396*a A 2+2.0371e-2*a. A 3+7.0076e-4*a A 4); 
chk2=(a>=-4 & a<=7); 
chk2=chk2.*chk 1 ; 
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CD=CD+chk2.*(9.732e-3+3.2326e-4*a+1.4392e-4*a. A 2-8.5073e-5*a. A 3+1.1826e-6*a. A 4+1.5271e- 

6*a. A 5); 

chk2=a>7; 

chk2=chk2.*chkl; 

CD=CD+chk2.*(1.842e-l-5.7532e-2*a+5.8043e-3*a. A 2-1.2803e-4*a A 3); 
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APPENDIX AV. AIRSPEED ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the airspeed iteration 
method. 

function airspeed_iteration_plots() 

% Plot Routine For Airspeed Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load airspeed_iteration_plots 

global PICK H_AS_IT... 

H_AS_IT_P1 H_AS_IT_P2 H_AS_IT_P3 H_AS_IT_P4 H_AS_IT_P5... 

H AS IT P6 H AS IT P7 H AS IT P8 H AS IT P9 H AS IT P10 



H_AS_IT = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Airspeed Iteration Plots', ... 

'NumberTitle'.'off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.170898 0.0963542 0.65625 0.824219], ... 
'Tag'/Figl'); 

b = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'FontSize',14, ... 

'Font Weight',' bold’, ... 

’BackgroundColor 1 , [0.752941 0.752941 0.752941], ... 
’Position’, [0. 173363 0.872038 0.659226 0. 101 106], ... 
’String’, ’Plot Selection For Airspeed Iteration', ... 
'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',H_AS_IT, ... 

'Units','normalized', ... 

'FontSize',12, ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.21875 0.707741 0.568452 0.0647709], ... 
'String', 'Check The Boxes Below For Desired Plots', ... 
'Style', 'text', ... 

'Tag', 'StaticText2') ; 

H_AS_IT_P1 = uicontrol('Parenf,H_AS_IT, ... 

'Units', 'normalized', ... 
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'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.603476 0.705357 0.0458136], ... 

'String', 'Main Rotor Plots- Speed vs T/RHP/TPPangle/Lifitpercent',... 
'Style', 'checkbox', ... 

'Tag’/Checkboxl'); 

H_AS_IT_P2 = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0. 15 1786 0.545901 0.702381 0.0473934], ... 

'String', 'Rotor/Tail Rotor/Total Power Required',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1') ; 

H_AS_IT_P3 = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.489907 0.705357 0.0458136], ... 

'String', 'Rotor Speed vs Airspeed (Constant Tip Speed)',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1') ; 

H_AS_IT_P4 = uicontrol('Parent’,H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 15 1786 0.432333 0.702381 0.0473934], ... 

'String' .'Auxiliary Thrust vs Airspeed',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_AS_IT_P5 = uicontrolCParent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.376338 0.705357 0.0458136], ... 

'String 1 ,'Coeff of Power vs Coeff of Thrust at Max Airspeed',... 
'Style', 'checkbox', ... 

'Tag', 'Checkbox T); 

H_AS_rr_P6 = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 15 1786 0.318764 0.702381 0.0473934], ... 

'String 1 , 'Coeff of Thrust vs Figure of Merit',... 

'Style', 'checkbox', ... 

'TagyCheckboxl'); 

H_AS IT_P7 = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.26277 0.705357 0.0458136], ... 

'String', 'Drag vs Airspeed',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_AS_IT_P8 = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0. 15 1786 0.205196 0.702381 0.0473934], ... 

'String', 'Required Collective Pitch vs Airspeed',... 

'Style', 'checkbox', ... 
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'TagVCheckbox 1 '); 

H_AS_IT_P9 = uicontrol('Parent',H_AS_lT, ... 
'Units','normalized', ... 

'BackgroundColor’, [0.752941 0.752941 0.752941], ... 
'Position', [0.150298 0.149201 0.705357 0.0458136], ... 
'StringVlst Lateral Cyclic Term (als) vs Airspeed',... 
'Style',’checkbox', ... 

'Tag', 'Checkbox 1'); 

H_AS_1T_P10 = nicontrol('Parent',H_AS_lT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0. 7 5294 1 0.752941 0.752941], ... 
'Position', [0.151786 0.0916272 0.702381 0.0473934], ... 
'String', '1st Longitudinal Cyclic Term (bis) vs Airspeed',... 
'Style', 'checkbox', ... 

'TagVCheckboxl'); 
b = uicontrol('Parent',H_AS_lT, ... 

'Units','normalized', ... 

'Callback', 'createjplots fcn plots', ... 

'FontSize',12, ... 

'FontWeighC’bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.589286 0.01 0.235119 0.0677165], ... 
'StringVCreate Plots', ... 

'Tag'/Pushbuttonl'); 
b = uicontrol('Parent',H_AS_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;createjplots_fcn back', ... 
'FontSize',12, ... 

'FontWeight'^old', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 178571 0.01 0.235119 0.0677165], ... 
'String','« Back', ... 

'Tag','Pushbutton O; 

assigninCbase','H_AS_IT_P 1 ',H_AS_IT_P 1 ) 
assignm('base','H_AS_rr_P2',H_AS_rr_P2) 
assignmCbase','H_ASIT_P3 ',H_AS_IT_P3 ) 
assigninCbase’,'H_ASJT_P4',H_AS_IT_P4) 
assigninCbase',’H_AS_IT_P5',H_AS_IT_P5) 
assigninCbase’,'H_AS_lT_P6',H_AS_IT_P6) 
assigninCbase','H_AS_IT_P7',H_AS_lT_P7) 
assigninCbase','H_AS_lT_P8',H_AS_lT_P8) 
assignin('base','H_AS_IT_P9',H_AS_lT_P9) 
assignin('base','H_AS_IT_P10',H_AS_IT_P10) 
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APPENDIX AW. ALTITUDE ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the altitude iteration 
method. 



function altitude_iteration_plotsO 

% Plot Routine For Altitude Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load altitude_iteration_plots 

global H_AL_IT H_AL_IT_P1 H_AL_IT_P2 H_AL_IT_P3 H_AL_IT_P4 H_AL_IT_P5 

H_AL_IT = figure('Units', 'normalized', ... 

’ 'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name','Altitude Iteration Plots', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData',mat 1 , ... 

'Position', [0.169922 0.0976562 0.65625 0.824219], ... 

’Tag'/Figr); 

b = uicontrol('Parent',H_AL_IT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position', [0.173363 0.872038 0.659226 0.101106], ... 

'String', 'Plot Selection For Altitude Iteration', ... 

'Style', 'text', ... 

'Tag',' StaticText 1 ') ; 
b = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

TontSize',12, ... 

'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 

'String', 'Check The Boxes Below For Desired Plots', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H_AL_IT_P1 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

■Position',[0. 14881 0.603476 0.705357 0.0458136], ... 
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'String', Total Power Required vs Altitude', ... 
'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_AL_IT_P2 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.14881 0.545901 0.702381 0.0473934], ... 
'String', 'Rotor Drag vs Altitude', ... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_AL_IT_P3 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.14881 0.489731 0.705357 0.0458136], ... 
'String', 'Required Collective Pitch vs Altitude', ... 
'Style'.'checkbox', ... 

'Tag',’Checkboxl'); 

H_AL_IT_P4 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.14881 0.42654 0.705357 0.0458136], ... 
'String', '1st Lateral Cyclic Term vs Altitude', ... 
'Style'.'checkbox', ... 

'Tag', 'Checkbox 1 '); 

H_AL_IT_P5 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

•BackgroundColor’, [0.752941 0.752941 0.752941], 
'Position', [0.14881 0.363349 0.705357 0.0458136], ... 
'String', '1st Longitudinal Cyclic Term vs Altitude', . 
'Style','checkbox', ... 

'Tag', 'Checkbox 1 '); 

H_AL_IT_P6 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0. 14881 0.300158 0.705357 0.0458136], ... 
'String', 'Blank', ... 

'Style'.'checkbox', ... 

'Tag', 'Checkbox T); 

H_AL_IT_P7 = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.14881 0.232227 0.705357 0.0458136], ... 
'String', 'Blank', ... 

'Style'.'checkbox', ... 

'Tag'.'Checkboxl'); 
b = uicontrol('Parenl',H_AL_IT, ... 

'Units', 'normalized', ... 

'Callback', 'create_plots_fcn plots', ... 

'FontSize',12, ... 

'Font Weight', 'bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], 
'Position', [0.589286 0.01 0.235119 0.0677165], ... 
'String', 'Create Plots', ... 
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'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_AL_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String', '« Back', ... 

'Tag', 'Pushbutton 1 '); 
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APPENDIX AX. GROSSWEIGHT ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the altitude iteration 
method. 



function grosswt_iteration_plots() 

% Plot Routine For Gross Weight Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load grosswt_iteration_plots 

global H GW IT H_GW_IT_P1 H_GW_IT_P2 H_GW_IT_P3 H_GW_IT_P4 H_GW_IT_P5... 
H GW IT P6 H GW IT P7 H GW IT P8 H GW IT P9 



H_GW_IT = figure('Units', 'normalized', ... 

’ 'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name','Gross Weight Iteration Plots', ... 
'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.170898 0.0963542 0.65625 0.824219], ... 
Tag', 'Fig IT, 

b = uicontrol('Parent',H_GW_IT, ... 

Units', 'normalized', ... 

'FontSize',14, ... 

'Font Weighted', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 173363 0.872038 0.659226 0.101106], ... 
'String', 'Plot Selection For Gross Weight Iteration', ... 
'Style','text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',H_GW_IT, ... 

'Units' ,'normalized', ... 

'FontSize',12, ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 
'String','Check The Boxes Below For Desired Plots', ... 
'Style', 'text', ... 

'Tag','StaticText2'); 

H_GW_IT_P1 = uicontrol('Parent',H_GW_IT, ... 

'Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'Position', [0.150298 0.603476 0.705357 0.0458136], ... 

'String','Total Power Required vs Gross Weight (No HIGE Calculations)',... 
'Style','checkbox', ... 

'Tag', 'Checkbox 1 ') ; 

H_GW_IT_P2 = uicontrolCParent',H_GW_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 15 1786 0.545901 0.702381 0.0473934], ... 

'String','Rotor Drag vs Gross Weight',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_GW_IT_P3 = uicontrolCParent',H_GW_IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.489907 0.705357 0.0458136], ... 

'String', 'Required Collective Pitch vs Gross Weight',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_GW_IT_P4 = uicontrol(’Parent',H_GW_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.432333 0.70238 1 0.0473934], ... 

'String', '1st Lateral Cyclic Term vs Gross Weight',... 

'Style','checkbox', ... 

'TagVCheckboxl'); 

H_GW_IT_P5 = uicontrol('Parent',H_GW_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.150298 0.376338 0.705357 0.0458136], ... 

'String', '1st Longitudinal Cyclic Term vs Gross Weight',... 

'Style','checkbox', ... 

'Tag', 'Checkbox 1'); 

H_GW_IT_P6 = uicontrolCParent',H_GW_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.318764 0.702381 0.0473934], ... 

'String', 'Coefficient of Thrust vs Gross Weight',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_GW_IT_P7 = uicontrol('Parent',H_GW_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position',[0. 150298 0.26277 0.705357 0.0458136], ... 

'StringVCoefficient of Power vs Gross Weight',... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_GW_IT_P8 = uicontrol('Parent',H_GW_rr, ... 

'Units'.'normalized', ... 

'BackgroimdColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.205196 0.70238 1 0.0473934], ... 

'String', 'Figure of Merit vs Gross Weight',... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 
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H_GW_IT_P9 = uicontrol('Parent’,H_GW_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.1 50298 0.149201 0.705357 0.0458136], ... 

'String', 'HIGE Power Required vs Gross Weight (Only if HIGE Calcs Were Completed)',... 
'Style', 'checkbox', ... 

Tag', 'Checkbox 1'); 
b = uicontrol('Parent',H_GW_IT, ... 

'Units’, 'normalized', ... 

'Callback' ,'create__plots_fcn plots', ... 

'FontSize',12, ... 

'Font Weight', Tjold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 

'StringVCreate Plots', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_GW_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 

'FontSize',12, ... 

'Font Weight', 'bold', ... 

’Position’,[0. 178571 0.01 0.235119 0.0677165], ... 

'String', '« Back', ... 

’Tag','Pushbuttonl'); 
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APPENDIX AY. BLADETAPERRATIO ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the blade taper ratio 
iteration method. 



function bladetaperratio_iteration_plots() 

% Plot Routine For Blade Taper Ratio Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load bladetaperratio_iteration_plots 

global H_BTR_IT H_BTR_IT_P1 H_BTR_IT_P2 H_BTR_IT_P3 H_BTR_IT_P4 H_BTR_IT_P5... 
H_BTR_IT _P6 HBTRITP7 H_BTR_IT_P8 

H_BTR_IT = figure('Units',’normalized', ... 

" 'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Blade Taper Ratio Iteration Plots', ... 

’NumbeiTitle','off, ... 

TointerShapeCData',matl, ... 

'Position', [0. 170898 0.0963542 0.65625 0.824219], ... 

'Tag', Tig 1'); 

b = uicontrol('Parent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.847059 0.752941 0.627451], ... 

'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position',[0. 173363 0.872038 0.659226 0.101106], ... 

'String', 'Plot Selection For Blade Taper Ratio Iteration', ... 

'Style’,’text', ... 

Tag'/StaticTextl’); 
b = uicontrol('Parent',H_BTR IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.847059 0.752941 0.627451], ... 

'FontSize',12, ... 

'Position', [0.21875 0.707741 0.568452 0.0647709], ... 

'String','Check The Boxes Below For Desired Plots', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H BTR IT Pl = uicontrol('Parent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'Position',[0. 150298 0.603476 0.705357 0.0458136], ... 
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'String', Total Power Required vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

'Tag','Checkbox 1 '); 

H_BTR_IT_P2 = uicontrolCParent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'Position', [0.151786 0.545901 0.702381 0.0473934], ... 
'String*, 'Rotor Drag vs Blade Taper Ratio',... 

'Style','checkbox', ... 

'Tag', 'Checkbox 1 ') ; 

H_BTR_IT_P3 = uicontrol(’Parent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'Position',[0. 150298 0.489907 0.705357 0.0458136], ... 
'String', 'Required Collective Pitch vs Blade Taper Ratio',... 
'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_BTR_IT_P4 = uicontrol('Parent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'Position’,[0. 15 1786 0.432333 0.702381 0.0473934], ... 
'String*, '1st Lateral Cyclic Term vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

'Tag', 'Checkbox T) ; 

H_BTR_IT_P5 = uicontrol('Parent',H_BTR_IT, ... 
'Units'.'normalized', ... 

'Position', [0. 150298 0.376338 0.705357 0.0458136], ... 
'String', '1st Longitudinal Cyclic Term vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

'TagVCheckboxl'); 

H BTR IT P6 = uicontrol('Parent',H_BTR_IT, ... 
'Units'.'normalized', ... 

'Position', [0.1 5 1786 0.318764 0.702381 0.0473934], ... 
'String', 'Coefficient of Thrust vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

'TagVCheckboxl'); 

H_BTR_IT_P7 = uicontrolCParent',H_BTR_IT, ... 
'Units'.'normalized', ... 

'Position', [0.150298 0.26277 0.705357 0.0458136], ... 
'String', 'Coefficient of Power vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

'TagVCheckboxl'); 

H_BTR_IT_P8 = uicontrol('Parent',H_BTR_IT, ... 
'Units'.'normalized', ... 

■Position', [0.151786 0.205196 0.702381 0.0473934], ... 
'String 1 , 'Figure of Merit vs Blade Taper Ratio',... 
'Style'.'checkbox', ... 

TagVCheckboxl'); 
b = uicontrol('Parent',H_BTR IT, ... 

'Units'.'normalized', ... 

'CaUback','createjplots_fcn plots', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 
'String','Create Plots', ... 

'Tag'.'Pushbuttonl'); 
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b = iucontrol('Parent',H_BTR_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'Font Weight', 'bold', ... 

'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String', '« Back', ... 

'Tag','Pushbuttonl '); 
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APPENDIX AZ. NO ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the no iteration 
method. 

function no_iteration_plots() 

% Plot Routine For No Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load no_iterationjplots 



global H_NO_IT S_PERF_INPUT S_MATR_VEC plot_val H_NO_IT_Pl H_NO_IT_P2 H_NO_IT_P3... 
H_NO_IT_P4 filename3 out_count PLOT_VALS H_r_VEC r_vec 

H_N0_1T = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name','No Iteration Plots', ... 

'NumberTitleVoff, ... 

'PointerShapeCData',matl, ... 

■Position', [0.169922 0.0976562 0.65625 0.825521], ... 

'Tag'.Tigl*); 

b = uicontrol('Parent',H_NO_IT, ... 

'Units' /normalized', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0. 173363 0.872038 0.659226 0.101106], ... 

'String',' Plot Selection For Single Run (No Iteration)', ... 

'Style', 'text', ... 

'Tag'/StadcTextl'); 
b = uicontrol('Parent',H_NO_IT, ... 

'Units'/normalized', ... 

'FontSize',12, ... 

'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 

'String', 'Check The Boxes Below For Desired Plots', ... 

'Style'/text', ... 

'Tag','StaticText2'); 

H_NO_IT_Pl = uicontrol('Parent',H_NO_IT, ... 

'Units'/normalized’, ... 

'Position',[0.13244 0.609449 0.732143 0.0456693], ... 

'String', '2-D Thrust vs. r/R (plotted at psi = 0,90,180,270 deg)', ... 
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'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_NO_IT_P2 = uicontrol('Parent',H_NO_IT, ... 

Units', 'nonnalized', ... 

'Position', [0. 13244 0.551181 0.732143 0.0472441], ... 

'String', '3-D Thrust vs. r/R Mesh', ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_NO_IT_P3 = uicontrol('Parent',H_NO_IT, ... 

'Units', 'normalized', ... 

•Position', [0.136905 0.489907 0.705357 0.0458136], ... 

'String', Thrust vs. Psi At Fixed r/R Values (User will input r/R values)', ... 
'Style', 'checkbox', ... 

'Tag', 'Checkbox 1 ') ; 
b = uicontrol('Parent',H_NO_IT, ... 

'Units', 'normalized', ... 

'Position', [0.1 36905 0.404724 0.100833 0.0708661], ... 

'String', 'r/R =', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 

H_r_VEC = uicontrol('Parent',H_NO_IT, ... 

'Units','normalized', ... 

'Position', [0.258479 0.354331 0.60306 0.12126], ... 

'String',", ... 

'Style','text', ... 

'Tag','StaticText4'); 
b = uicontrol('Parent',H_NO_IT, ... 

Units','normalized', ... 

'Position', [0. 136905 0.267717 0.275298 0.0598425], ... 

'String', Enter desired r/R values in matrix form (ie. [.7,. 8])', ... 

'Style', 'text', ... 

'Tag','StaticText5'); 
b = uicontrol('Parent',H_NO_IT, ... 

Units','normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Position', [0.4 1 8 1 55 0.270866 0.428571 0.0566929], ... 

'String', '[ ]', ... 

'Callback', 'global PLOT_VALS, PLOT_VALS=str2num(get(gcbo, "String"));',. 
'Style', 'edit', ... 

'Tag’,EditTextl'); 

H_NO_IT_P4 = uicontrol('Parent',H_NO_IT, ... 

'Umts', 'normalized', ... 

’Position', [0.133929 0.177953 0.735119 0.0472441], ... 

'String', '2-D Normal Force (Lift) vs. r/R (plotted at psi = 0,90,180,270 deg)' 
'Style', 'checkbox', ... 

'Tag', 'Checkbox T); 
b = uicontrol('Parent',H_NO_IT, ... 

'Units', 'normalized', ... 

'Position', [0.1 3244 0.11811 0.735119 0.0456693], ... 

'String', 'Blank', ... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox T); 
b = uicontrol('Parent',H_NO_IT, ... 
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'Units', 'normalized', ... 

'Callback', 'create_plots_fcn plots', ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

'Position', [0.583333 0.0188976 0.235119 0.0677165], 
'String', 'Create Plots', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_NO_IT, ... 

'Units','normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position’,[0. 184524 0.0204724 0.235119 0.0677165], 
'String','« Back', ... 

'Tag','Pushbuttonl'); 
b = uicontrol('Parent',H_NO_IT, ... 

'Units', 'normalized', ... 

'Position', [0.1 3244 0.248819 0.733631 0.292913], ... 
'Style', 'frame', ... 

'Tag','Framel'); 

assigninCbase',T_vec',r_vec) 
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APPENDIX BA. BLADETWIST ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the blade twist 
iteration method. 



function bladetwist_iteration_plots() 

% Plot Routine For Blade Twist Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 



load bladetwist_iteration_plots 

global H BT IT H_BT_IT_P1 H_BT_IT_P2 H_BT_IT_P3 H_BT_IT_P4 H_BT_IT_P5... 
H_BT_IT_P6 H_BT_IT_P7 H_BT_IT_P8 

H_BT_IT = figureCUnits', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

■Name', Blade Twist Iteration Plots', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

•Position’, [0.170898 0.0963542 0.65625 0.824219], ... 

Tag'.’Figl'); 

b = uicontrol ('Parent', H_BT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.847059 0.752941 0.627451], ... 

'FontSize',14, ... 

'FontWeight',bold', ... 

'Position', [0.173363 0.872038 0.659226 0.101106], ... 

'String', Blot Selection For Blade Twist Iteration', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent’,H_BT_rr, ... 

'Units','normalized', ... 

'BackgroundColor*, [0.847059 0.752941 0.627451], ... 

'FontSize',12, ... 

'Position', [0.21875 0.707741 0.568452 0.0647709], ... 

'String', 'Check The Boxes Below For Desired Plots', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H_BT_IT_P1 = uicontrol('Parent',H_BT_IT, ... 
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'Units', 'normalized', ... 

'Position', [0.1 50298 0.603476 0.705357 0.0458136], 
'String',Total Power Required vs Blade Twist',... 
'Style','checkbox', ... 

'Tag', 'Checkbox 1 '); 

H BT IT P2 = uicontrol('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Position', [0. 1 5 1 786 0.545901 0.702381 0.0473934], 
'StringVRotor Drag vs Blade Twist',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1 ') ; 

H_BT_IT_P3 = uicontroI('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Position',[0. 150298 0.489907 0.705357 0.0458136], 
'StringVRequired Collective Pitch vs Blade Twist',... 
'Style','checkbox', ... 

'Tag'/Checkboxl’); 

H BT IT P4 = uicontrol('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Position', [0.15 1786 0.432333 0.702381 0.0473934], 
'String', '1st Lateral Cyclic Term vs Blade Twist',... 
'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_BT_IT_P5 = uicontrolCParent',H_BT_IT, ... 
'Units','normalized', ... 

'Position',[0. 150298 0.376338 0.705357 0.0458136], 
'String', '1st Longitudinal Cyclic Term vs Blade Twist',.. 
'Style', 'checkbox', ... 

'Tag', 'Checkbox 1 '); 

H_BT_IT_P6 = uicontrolCParent',H_BT_rr, ... 

*Units', 'normalized', ... 

■Position',[0.151786 0.318764 0.702381 0.0473934], 
'String','Coefficient of Thrust vs Blade Twist',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H BT IT P7 = uicontrol('Parent',H_BT_IT, ... 
'Units','normalized', ... 

'Position', [0.150298 0.26277 0.705357 0.0458136], .. 
'String 1 , 'Coefficient of Power vs Blade Twist',... 

'Style', 'checkbox', ... 

Tag','Checkboxl'); 

H_BT IT_P8 = uicontrol('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Position', [0.151786 0.205196 0.702381 0.0473934], 
'String', 'Figure of Merit vs Blade Twist',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 
b = uicontroI('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Callback', 'create_plots_fcn plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 
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'String', 'Create Plots', ... 

'Tag' ’, 'Pushbutton 1 '); 
b = uicontrol('Parent',H_BT_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'FontWeight’,'bold', ... 

'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String', '« Back', ... 

'Tag', 'Pushbutton 1 '); 
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APPENDIX BB. ROTORRAD ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the rotor radius 
iteration method. 



function rotorrad_iteration_plots() 

% Plot Routine For Rotor Radius Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load rotorrad_iteration_plots 

global HJRBRJT H_RBR_IT_P1 H_RBR_IT_P2 H_RBR_IT_P3 H_RBR_IT_P4 H_RBR_IT_P5... 
H_RBR_IT_P6 

HRBRIT = figureCUnitsVnormalized’, ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', ’Main Rotor Blade Radius Iteration Plots', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.170898 0.0963542 0.65625 0.824219], ... 

'TagVFigl'); 

b = uicontrol('Parent',H_RBR_IT, ... 

'Units', 'normalized', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.173363 0.872038 0.659226 0.101106], ... 

'String', 'Plot Selection For Rotor Blade Radius Iteration', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent’,H_RBR_IT, ... 

'Units','normalized', ... 

'FontSize',12, ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 

'StringVCheck The Boxes Below For Desired Plots', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H RBR IT Pl = uicontrolCParent’,H_RBRJT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'Position', [0. 150298 0.603476 0.705357 0.0458136], ... 

'String', 'Rotor, Tail and Total Power Required vs Blade Radius',... 
'Style','checkbox', ... 

'Tag', 'Checkbox 1 ') ; 

H RBR IT P2 = uicontrol('Parent',H_RBR_IT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.1 5 1786 0.545901 0.702381 0.0473934], ... 

'String',' Aux Thrust and Drag vs Blade Radius',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

HRBRJTJP3 = uicontrol('Parent',H_RBR_IT, ... 

'Units','nomialized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.1 50298 0.489907 0.705357 0.0458136], ... 
'String','Required Collective Pitch vs Blade Radius',... 

'Style', 'checkbox', ... 

'Tag'/Checkboxl'); 

H_RBR_IT_P4 = uicontrol('Parent',H_RBR_IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.432333 0.702381 0.0473934], ... 

'String’.Tail Rotor Power Required vs Blade Radius',... 

'Style', 'checkbox', ... 

'Tag'/Checkboxl'); 

H_RBR_IT_P5 = uicontrol('Parent',H_RBR_IT, ... 

Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.376338 0.705357 0.0458136], ... 

'String', 'Figure of Merit vs Blade Radius',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_RBR_IT_P6 = uicontrolCParent',H_RBR_IT, ... 

'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.318764 0.702381 0.0473934], ... 

'String', 'Disk Loading vs Blade Radius',... 

'Style'/checkbox', ... 

'Tag', 'Checkbox 1'); 
b = uicontrol('Parent',H_RBR_IT, ... 

'Units'/normalized', ... 

'Callback', 'create_plots_fcn plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.589286 0.01 0.235119 0.0677165], ... 

'String', 'Create Plots', ... 

'Tag','Pushbutton 1 '); 
b = uicontrol('Parent',H_RBR_IT, ... 

'Units'/normalized', ... 

'Callback','out_count=l;createjplots_fcn back', ... 

'FontSize',12, ... 

•FontWeight',’bold', ... 

•Position', [0.178571 0.01 0.235119 0.0677165], ... 
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'StringV« Back', .. 
'Tag','Pushbutton 1 ') 
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APPENDIX BC. ROTORSPD ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the rotor speed 
iteration method. 



function rotorspd_iteration_plots() 

% Plot Routine For Rotor Speed Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load rotorspd_iteration_plots 

global H_RBS_IT H_RBS_IT_P1 H_RBS_IT_P2 H_RBS_IT_P3 H_RBS_IT_P4 H_RBS_IT_P5 

H_RBS_IT = figure('Units’,'nonnalized', ... 

'Color’,[0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name','Main Rotor Blade Speed Iteration Plots', ... 

'NumberTitleVoff, ... 

'PointerShapeCData'.matl, ... 

'Position', [0.170898 0.0963542 0.65625 0.824219], ... 

Tag'.Tigl*); 

b = uicontrol('Parent',H_RBS_IT, ... 

'Units', 'normalized', ... 

'FontSize',14, ... 

'FontWeight',’bold', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.173363 0.872038 0.659226 0.101106], ... 

'String', 'Plot Selection For Rotor Blade Speed Iteration', ... 

'Style', 'text', ... 

'Tag','StaticTextl'); 
b = uicontrol('Parent',H_RBS_IT, ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 

'String', 'Check The Boxes Below For Desired Plots', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H_RBS_IT_P1 = uicontrol('Parent',H_RB S IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.603476 0.705357 0.0458136], ... 
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'String','Rotor, Tail and Total Power Required vs Blade Speed',... 
'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_RBS_IT_P2 = uicontrol('Parent',H_RB S_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 15 1786 0.545901 0.702381 0.0473934], ... 

'String',' Aux Thrust and Drag vs Blade Speed',... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H RBS IT P3 = uicontrol('Parent',H_RBS_IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.489907 0.705357 0.0458136], ... 

'String', 'Required Collective Pitch vs Blade Speed',... 

'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_RBS_IT_P4 = uicontrol('Parent',H_RBS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.432333 0.702381 0.0473934], ... 

'String'.Tail Rotor Power Required vs Blade Speed',... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_RBS_IT_P5 = uicontrol('Parent',H_RBS_IT, ... 

'Units' ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 150298 0.376338 0.705357 0.0458136], ... 
'String','Disk Loading vs Blade Speed',... 

'Style', 'checkbox’, ... 

'TagVCheckboxl '); 
b = uicontrol('Parent',H_RBS_rr, ... 

Units','normalized', ... 

'Callback','create_plots_fcn plots', ... 

'FontSize’,12, ... 

'Font Weight', 'bold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 

'String', 'Create Plots', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',H_RBS_IT, ... 

'Units','normalized', ... 

'Callback',’out_count=l;create_plots_fcn back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

’Position’, [0.178571 0.01 0.235119 0.0677165], ... 

'String','« Back', ... 

'Tag', 'Pushbutton 1 '); 
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APPENDIX BD. STARTOFTAPER ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the start of taper 
iteration method. 



function startoftaper_iteration_plots() 

% Plot Routine For Start of Taper Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load startoftaper_iteration_plots 

global H SOT IT H SOT IT Pl H_SOT_IT_P2 H_SOT_IT_P3 H_SOT_IT_P4 H_SOT_IT_P5... 
H_SOT_IT_P6 H_SOT_IT_P7 H_SOT_IT_P8 

H_SOT_IT = figure('Units','normalized', ... 

'Color',[0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'Name', 'Start Of Taper Position Iteration Plots', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData',matl, ... 

'Position', [0. 170898 0.0963542 0.65625 0.824219], ... 

'Tag', 'Fig 1'); 

b = uicontrol('Parent',H_SOT_rr, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75 2941 0.752941 0.752941], ... 

'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position', [0.173363 0.872038 0.659226 0.101106], ... 

'String','Plot Selection For Start Of Taper Position Iteration', ... 

'Style','text', ... 

'TagyStaticTextl'); 
b = uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

•Position',[0.21875 0.707741 0.568452 0.0647709], ... 

'String', 'Check The Boxes Below For Desired Plots', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 

H SOT IT Pl = uicontrol ('Parent' ,H_SOT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
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'Position',[0. 150298 0.603476 0.705357 0.0458136], ... 

'String'.Total Power Required vs Start Of Taper Position',... 
'StyleVcheckbox', ... 

'Tag','Checkboxl'); 

H_SOT_IT_P2 = uicontrolCParent',H_SOT_IT, ... 
'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 15 1786 0.545901 0.702381 0.0473934], ... 
'String','Rotor Drag vs Start Of Taper Position',... 

'Style','checkbox', ... 

'Tag','CheckboxT); 

H_SOT_IT_P3 = uicontrol('Parent',H_SOT_IT, ... 
'Units','normalized', ... 

’BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.150298 0.489907 0.705357 0.0458136], ... 

'String' Required Collective Pitch vs Start Of Taper Position',... 
'Style', 'checkbox', ... 

Tag','Checkboxl'); 

H_SOT_IT_P4 = uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.432333 0.702381 0.0473934], ... 

’String' ,' 1st Lateral Cyclic Term vs Start Of Taper Position',... 
'Style','checkbox', ... 

'Tag’,'Checkboxl'); 

H_SOT_IT_P5 = uicontrol('Parent',H_SOT_IT, ... 

'Units' .'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 150298 0.376338 0.705357 0.0458136], ... 

'String' ,'lst Longitudinal Cyclic Term vs Start Of Taper Position',... 
'Style', 'checkbox', ... 

'Tag', 'Checkbox 1'); 

H_SOT_IT_P6 = uicontrol('Parent',H_SOT_IT, ... 
'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.151786 0.318764 0.702381 0.0473934], ... 

'String', 'Coefficient of Thrust vs Start Of Taper Position',... 
'Style','checkbox', ... 

•Tag','Checkboxl'); 

H_SOT_IT_P7 = uicontrol('Parent',H_SOT_IT, ... 
'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position’,[0. 150298 0.26277 0.705357 0.0458136], ... 
'String'/Coefficient of Power vs Start Of Taper Position',... 

'Style', 'checkbox', ... 

'Tag'/Checkbox 1 '); 

H_SOTJT_P8 = uicontrol('Parent',H_SOT_IT, ... 
'Units'/normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

Position', [0.151786 0.205196 0.702381 0.0473934], ... 

'String', 'Figure of Merit vs Start Of Taper Position',... 

'Style', 'checkbox', ... 

'Tag'/Checkbox 1 ') ; 
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b = uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'Callback','create_plots_fcn plots', ... 

'FontSize',12, ... 

•FontWeight'.'bold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 
'StringVCreate Plots', .. . 

'Tag', r Pushbuttonl'); 
b = uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'Callback','out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.178571 0.01 0.235119 0.0677165], ... 
’String’, '« Back', ... 

'T ag', 'Pushbutton 1 ') ; 
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APPENDIX BE. WINGSPANAREA ITERATION PLOTS.M 



This script M-file creates a screen listing available plots for the wing span area 
iteration method. 



function wingspanarea_iteration_plotsO 

% Plot Routine For Wing Span Area Iteration. 

% JANRAD 98 VERSION 5.0 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 



load wingspanarea_iteration_plots 

global H_WSA_IT H_WSA_IT_P1 H_WSA_IT_P2 H_WSA_IT_P3 H_WSA_IT_P4 H_WSA_IT_P5... 
H_WSA_IT_P6 H_WSA_IT_P7 H_WSA_IT_P8 H_WSA_IT_P9 H_WSA_IT_P10 

H_WSA_IT = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

■Name',' Wing Span Area Iteration Plots', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

•Position', [0.170898 0.0963542 0.65625 0.824219], ... 

Tag',Tigl'); 

b = uicontrol('Parent',H_WSA_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0. 75 294 1 0.752941 0.752941], ... 

'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position',[0. 173363 0.872038 0.659226 0.101106], ... 

'String', 'Plot Selection For Wing Span Area Iteration’, ... 

’Style', ’text', ... 

'Tag','StaticTextl'); 
b = uicontrol('Parent',H_WSA IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'Position', [0.2 1875 0.707741 0.568452 0.0647709], ... 

'String','Check The Boxes Below For Desired Plots', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_WSA_IT_P1 = uicontrol('Parent',H_WSA_IT, ... 

'Units','normalized', ... 
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'BackgroundColor*, [0.752941 0.752941 0.752941], ... 
'Position', [0.150298 0.603476 0.705357 0.0458136], ... 

'String',Total Power Required vs Wing Span Area',... 
'Style', 'checkbox', ... 

'Tag','Checkboxl '); 

H_WSA_IT_P2 = uicontrol('Parent',H_W S A_IT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.545901 0.702381 0.0473934], ... 
'String', 'Aux Thrust and Drag vs Wing Span Area',... 
'Style','checkbox', ... 

'TagVCheckboxl'); 

H_WSA_IT_P3 = uicontrol('Parent',H_WSA_IT, ... 
Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
■Position', [0.150298 0.489907 0.705357 0.0458136], ... 
'String 1 , 'Required Collective Pitch vs Wing Span Area',.. 
'Style','checkbox', ... 

'Tag','Checkboxl '); 

H WSA IT P4 = uicontrol('Parent’,H_WSA_IT, ... 
'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 1 5 1 786 0.432333 0.702381 0.0473934], ... 
'String','Wing Lift vs Wing Span Area',... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_WSA_ITJP5 = uicontrol('Parent',H_WSA_IT, ... 
'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 150298 0.376338 0.705357 0.0458136], ... 
'String',Tail Rotor Power Required vs Wing Span Area', 
'Style','checkbox', ... 

’Tag','Checkbox 1 ’); 

H_WSA_IT_P6 = uicontrol('Parent',H_WSA_IT, ... 
'Units',’normalized', ... 

'BackgroundColor', [0. 7 5294 1 0.752941 0.752941], ... 
'Position', [0.151786 0.318764 0.702381 0.0473934], ... 
'String', 'Coefficient of Thrust vs Wing Span Area',... 
'Style','checkbox', ... 

'TagVCheckboxl'); 

H_W S A_IT_P7 = uicontrol('Parent',H_WSA_IT, ... 
'Units', 'normalized', ... 

'BackgroundColor', [0. 7 5294 1 0.752941 0.752941], ... 
'Position', [0. 150298 0.26277 0.705357 0.0458136], ... 
’String', ’Coefficient of Power vs Wing Span Area',... 
'Style','checkbox', ... 

'TagVCheckboxl'); 

H_WSA_IT_P8 = uicontrol('Parent',H_WSA_IT, ... 
'Units'.'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 1 51786 0.205196 0.702381 0.0473934], ... 
'String', 'Figure of Merit vs Wing Span Area',... 

'Style', 'checkbox', ... 
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'Tag', 'Checkbox 1'); 

H_WSA_IT_P9 = uicontrol('Parent',H_ W S A_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.150298 0.14376 0.702381 0.0473934], ... 

'String', T)isk Loading vs Wing Span Area', ... 

'Style', 'checkbox', ... 

'TagVCheckboxl'); 

H_WS A_IT_P 1 0 = uicontrol('Parent',H_WSA_IT, ... 

Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0. 150298 0.0853081 0.702381 0.0473934], ... 
'String', 'Percent of Total Lift on Wing vs Wing Span Area', . . . 
’Style','checkbox', ... 

'TagVCheckboxl'); 
b = uicontrol('Parent',H_WSA IT, ... 

'Units', 'normalized', ... 

'Callback', 'create_plots_fcn plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.589286 0.01 0.235119 0.0677165], ... 
'StringVCreate Plots', ... 

'Tag','Pushbutton 1 '); 
b = uicontrol('Parent',H_WSA_IT, ... 

'Units', 'normalized', ... 

'Callback', 'out_count=l;create_plots_fcn back', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.178571 0.01 0.235119 0.0677165], ... 

'String', '« Back', ... 

'Tag','Pushbuttonl'); 
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APPENDIX BF. QUIT GUI.M 



This file creates GUI to verify the users intention to quit JANRAD 98. 



function quit_gui() 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

% JANRAD 98 VERSION 5.0 

load quit _gui 

a = figure('Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',mat0, ... 

'MenuBarVnone', ... 

'Name', 'Quit JANRAD 98?', ... 

'NumberTitle'.'off, ... 

'PointerShapeCData',matl, ... 

'Position', [0.235938 0.433333 0.389063 0.266667], ... 

•Tag'/Figl 1 ); 

b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'Callback', 'close (gcf)', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.188755 0.273438 0.240964 0.15625], ... 

'String', 'NO', ... 

Tag','Pushbuttonl'); 
b = uicontrolCParent',a, ... 

'Units'.'normalized', ... 

'Callback', 'close all, clear, clear global', ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

■Position', [0. 566265 0.273438 0.240964 0.15625], ... 

'String','YES', ... 

'Tag','Pushbutton2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight',bold', ... 

'Position', [0.1 92771 0.59375 0.618474 0.289062], ... 
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'StringVDo You Really Want to Quit JANRAD 98?’, ... 
'Style','text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'UmtsVnormalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0401606 0.0625 0.907631 0.898438], ... 
'Style', 'frame', ... 

'Tag'/Framel'); 
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APPENDIX BG. STABILITY CONTROL INPUT1.M 



This M-file creates the first of two stability and control module parameter input 

screens 



function stability_control_input_l() 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load stability_control_input_l 

a = figure(’Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'CreateFcn', 'global MESH_VAL, MESH_VAL=0;;', ... 

'Name', 'Stability and Control Parameters', ... 

'NumberTitle',’ofT, ... 

'PointerShapeCData',matl, ... 

'Position', [0.005 0.04 0.9975 0.89], ... 

•Tag’,'Fig2’); 
b = uimenu('Parent',a, ... 

'Label', 'JANRAD Options', ... 

'Tag','uimenul'); 
c = uimenu('Parent',b, ... 

'Callback', 'performance_input_fcn quit', ... 

'Label', 'Quit JANRAD’, ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenuCParent',b, ... 

'Callback', 'performance_input_fcn return', ... 

'Label', 'Return to Begining’, ... 

'Tag', 'JANRAD OptionsSubuimenul*); 
c = uimenuCParent’,b, ... 

'Callback', 'performance_input_fcn delta_input', ... 

'Enable', 'off, ... 

'Label', 'Change Input Parameters', ... 

'Tag'.'Subuimenu 1 '); 
c = uimenuCParent',b, ... 

'Callback','performance_input_fcn about', ... 

'Label',' About Janrad 98 ...', ... 

'Separator', 'on', ... 

'Tag','Subuimenu 1'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 0 1 97 1 09 0.75 0.17477 0.0538462], ... 
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'StringVFlapping Moment of Inertia (slug-ft A 2)', ... 

’Style’, 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units’, 'normalized', ... 

'BackgroundColor’,[l 1 1], ... 

'Callback', 'PA=get(gcbo,"Strmg");S_USER_INPUT.PA=str2num(P A);', ... 
'Position', [0.2 15506 0.751923 0.0985545 0.0480769], ... 

'Style','edit', ... 

'Tag'j’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0 197 109 0.694231 0.17477 0.0538462], ... 

'String', 'Hub Height Above Waterline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'temp=get(gcbo,"String");S_USER_INPUT.temp=str2num(temp);' 
'Position', [0.2 15506 0.694231 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.02 1025 0.640385 0.17477 0.05], ... 

'String', 'Hub Fuselege Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units’, 'normalized', ... 

■BackgroundColor', [1 1 1], ... 

'Callback', 'Vinf=get(gcbo,'’String'');S_USER_INPUT.Vinf=str2num(Vinf);', 
'Position', [0.215506 0.640385 0.0985545 0.05], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.75294 1 0.752941], ... 

'Position', [0.0197109 0.582692 0.17477 0.05], ... 

'String', 'Hub Position Right of Buttline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2’); 
b = uicontrol('Parent',a, ... 

'Units' ,'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'GW=get(gcbo,"String");S_USER_INPUT.GW=str2num(GW);', .. 
'Position', [0.21682 0.586538 0.0972405 0.0480769], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 



318 



'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0 197109 0.521154 0.17477 0.0538462], ... 

'String', 'Mast Incidence (negative fwd-degrees)', ... 

'Style', 'text', ... 

•Tag','StaticText2’); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'omega=get(gcbo,''String");S_USER_INPUT.omega=str2num(omega);', ... 
'Position', [0.2 15506 0.528846 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag',*EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units’,'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.03 15375 0.353846 0.173456 0.0480769], ... 

'String', 'Height Above waterline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticT ext2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'naz=get(gcbo, "String"); S_U SER_INPUT. naz=str2num(naz);', . . . 

'Position', [0.2 15506 0.351923 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag','EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0341656 0.294231 0.17477 0.05], ... 

'String', fuselage Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticT ext2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'thetao=get(gcbo,"String");S_USER_INPUT.thetao=str2num(thetao);', ... 
'Position', [0. 2 1 5506 0.294231 0.0985545 0.05], ... 

'Style', ’edit', ... 

, Tag','EditTextr); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.0341656 0.238462 0.173456 0.0480769], ... 

'String', 'Position Right of Buttline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Swing=get(gcbo,"String");S_USER_INPUT.Swing=str2num(Swing);', ... 
'Position', [0.215506 0.236538 0.0985545 0.0480769], ... 
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’StyleVedit', ... 

Tag',EditTextl’); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.034 1 656 0.182692 0.173456 0.0480769], ... 

'String', 'Alpha Zero Lift (degrees)', ... 

’Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','bwing=get(gcbo,"String");S_USER_INPUT.bwing=str2num(bwing);', ... 

'Position', [0.215506 0.180769 0.0985545 0.0480769], ... 

'Style','edit', ... 

'Tag’^ditTextl'); 
b = uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.034 1656 0.126923 0.173456 0.0480769], ... 

’String','CL Max', ... 

'Style'/text', ... 

'Tag','StaticText2'); 
b = uicontrol ('Parent', a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CLwing=get(gcbo,"String");S_USER_IHPUT.CLwing=str2num(CLwing);', ... 
'Position', [0.2 1 5506 0. 125 0.0985545 0.0480769], ... 

’Style','edit', ... 

’Tag'.’EditTextl'); 
b = uicontrolCParent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.0354796 0.0692308 0.173456 0.0557692], ... 

'String','Dynamic Pressure Ratio (page 489-Prouty)', ... 

'Style', 'text', ... 

’Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','CDowing=get(gcbo, "String"); S_USER_INPUT. CDowing=str2num(CDowing);', . . . 
’Position',[0.214192 0.0711538 0.0998686 0.0480769], ... 

'Style', 'edit', ... 

’Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.7 5294 1 0.752941 0.752941], ... 

'Position', [0.0341656 0.0269231 0.173456 0.0346154], ... 

'String','Lift Curve Slope', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 
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'BackgroundColor',[l 1 1], ... 

, CallbackVtwist=get(gcbo,"String");S_USER_INPUT.twist=str2num(twist);', . 
'Position', [0.2 1682 0.0173077 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag'.'EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.688073 0.729207 0.173001 0.0464217], ... 

'String', 'Height Above Waterline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 

'Position', [0.880734 0.729207 0.0982962 0.0483559], ... 

’Style',’edit', ... 

'Tag'.'EditTextl'); 
b = uicontrol('Parent',a, ... 

’Units','nonnalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.688073 0.659574 0.174312 0.0483559], ... 

'String', 'Hub Fuselage Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux);', 
'Position', [0.882045 0.659574 0.0982962 0.0483559], ... 

'Style'.’edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

■Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

TontSize',6, ... 

'Position', [0.688073 0.591876 0.174312 0.0483559], ... 

'String', 'Position Right of Buttline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);', ... 
'Position',[0.882045 0.59381 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.688073 0.528046 0.174312 0.0483559], ... 

'String', 'Number of Blades', ... 
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'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2num(Afv);', .. . 
'Position', [0.882045 0.529981 0.0982962 0.0483559], ... 

•Style','edit', ... 

•Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.688073 0.464217 0.1743 12 0.0483559], ... 

'String', 'Blade Chord (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','Svert=get(gcbo, "String"); S_USER_INPUT. Svert=str2num( Svert);', . . . 
'Position', [0.882045 0.466151 0.0982962 0.0483559], ... 

•Style', 'edit', ... 

•Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

•Position', [0.688073 0.398453 0.174312 0.0483559], ... 

•String', 'Blade Radius (ft)’, ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', , bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);', ... 
'Position', [0.882045 0.400387 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941],... 

'Position', [0.688073 0.334623 0.174312 0.0483559], ... 

'String', 'Lift Curve Slope', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);', ... 
•Position', [0.882045 0.336557 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 
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'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 

•Position', [0.687254 0.261538 0.17477 0.0538462], ... 

'String', 'Rotational Velocity (rad/sec)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);', 
■Position’, [0.882045 0.272727 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units' ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.687254 0.192308 0.17477 0.0596154], ... 

'String','Flap Moment of Inertia (slug-ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Shoriz=get(gcbo,"String");S_USER_INPUT.Shoriz=str2num(Shoriz);', ... 
'Position', [0.882045 0.206963 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.688073 0.141199 0.174312 0.0483559], ... 

'String','Delta-3 Angle (degrees)', ... 

'Style', 'text', ... 

'Tag’,'StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'bhoriz=get(gcbo,"String");S_USER_INPUT.bhoriz=str2num(bhoriz);', ... 
'Position', [0.882045 0.145068 0.0982962 0.0464217], ... 

'Style','edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

Tosition', [0.688073 0.0773694 0.174312 (5.0483559], ... 

'String','Blade Twist (degrees)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1],... 

'Callback', 'CLhoriz=get(gcbo,"String'');S_USER_INPUT.CLhoriz=str2num(CLhoiiz);', .. 
Tosition', [0.882045 0.0793037 0.0982962 0.0483559], ... 

'Style', 'edit', ... 
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'Tag'.'EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units’, 'normalized', ... 

'Callback', 'performanceinputfcn back', ... 
'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.339028 0.0115385 0.164258 0.0807692], .. 
'String', '« Back', ... 

'Tag', 'Pushbutton 1 '); 
b = uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

'Callback', 'performance_input_fcn print', ... 
'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.509855 0.00961538 0.164258 0.0807692], 
'String', 'Print Screen', ... 

'Tag','Pushbutton2'); 
b = uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

'Callback', 'performance_input_fcn cnx', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'PosiUon', [0.339028 0.1 0.164258 0.0807692], ... 
’String',’Cancel’, ... 

'Tag', 'Pushbuttons'); 
b = uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

'Callback', mat2, ... 

*FontSize',12, ... 

'FontWeight'.'bold', ... 

’PosiUon',[0.51117 0.1 0.164258 0.0807692], ... 

'String', 'Continue »', ... 

'Tag','Pushbutton4'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', . . . 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 

'FontWeight'.'bold', ... 

■Position', [0.0175439 0.805243 0.294486 0.0898876], .. 
'String', 'MAIN ROTOR PARAMETERS', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol(Tarent',a, ... 

'Units' .'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 

'FontWeight'.'bold', ... 

'Position', [0.022339 0.403846 0.296978 0.0903846], ... 
'String', 'VERTICAL FIN PARAMETERS', ... 
'Style'.'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units'.'normalized', ... 
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'BackgroundColor', [0.75 294 1 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight'.'bold', ... 

'Position', [0.755357 1.09524 0.296199 0.0831721], ... 

'String', 'MAIN ROTOR PARAMETERS', ... 

'Style', 'text', ... 

'Tag'/StaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'Font Weight', 'bold', ... 

'Position', [0.686763 0.798839 0.288336 0.0889749], ... 

'String', TAIL ROTOR PARAMETERS', ... 

'Style', 'text', ... 

'Tag','StaticTextT); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

TontSize',14, ... 

'Font Weight', Tx>ld', ... 

'Position', [0.122807 0.917603 0.763158 0.0692884], ... 

'String', 'STABILITY AND CONTROL PARAMETERS (PAGE 1 OF 2)', ... 

'Style'/text', ... 

'Tag','StaticText3'); 
b = uicontrol(’Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

TontWeight’.’bold', ... 

■Position', [0.360419 0.796905 0.288336 0.0889749], ... 

'String', HORIZONTAL TAIL PARAMETERS', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Shoriz=get(gcbo,"String");S_USER_INPUT.Shoriz=str2num(Shoriz);', ... 
'Position', [0.554391 0.206963 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

TJnits' /normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.360053 0.196154 0.173456 0.0557692], ... 

'String', 'Fuselage Downwash Ratio (page 489 Prouty)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent’,a, ... 

'Units' /normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert)/, ... 
'Position', [0.554391 0.272727 0.0982962 0.0483559], ... 
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'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.358739 0.261538 0.17477 0.0538462], ... 

'String', 'Rotor Downwash Ratio (page 489 Prouty)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);', ... 
'Position', [0.554391 0.336557 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.360053 0.328846 0.173456 0.0538462], ... 

'String','Dynamic Pressure Ratio (page 489 Prouty)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'bvert=get(gcbo,"String'');S_USER_INPUT.bvert=str2num(bvert);’, ... 
'Position', [0.5543 91 0.400387 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.3604 19 0.398453 0.174312 0.0483559], ... 

'String', "Lift Curve Slope', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Svert=get(gcbo,"String");S_USER_INPUT.Svert=str2num(Svert);', ... 
'Position', [0.554391 0.466151 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

’Tag','EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.360419 0.464217 0.174312 0.0483559], ... 

'String',' Angle of Incidence (degrees)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 
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'BackgroundColor',[l 1 1], ... 

'Callback',' Afv=get(gcbo, "String") ; S_U SER INPUT. Afv=str2nuni( AfV);', . . . 
'Position', [0.554391 0.529981 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units' ,'noimalized', ... 

'BackgToundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.3604 19 0.528046 0.174312 0.0483559], ... 

'String','Alpha Zero Lift (degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);', ... 
'Position', [0.554391 0.59381 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'FontSize',6, ... 

'Position', [0.360053 0.590385 0.173456 0.0480769), ... 

'String', 'Position Right of Buttline (ft))', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor 1 , [1 1 1], ... 

'Callback',Taux=get(gcbo,"String");S_U SER_INPUT.Taux=str2num(Taux);', . 
TPosition', [0.554391 0.659574 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag’.'EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.3604 19 0.659574 0. 1743 12 0.0483559], ... 

'String', 'Fuselage Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 

'Position', [0.55308 0.729207 0.0982962 0.0483559], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.359109 0.727799 0. 173001 0.046332], ... 

'String', fleight Above Waterline (ft)', ... 
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'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'Position', [0.00626566 0.513109 0.317043 0.38764], . 
'Style', 'frame', ... 

'Tag'/Framel'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 0075 1 88 0.011236 0.317043 0.490637], . 
'Style', 'frame', ... 

'Tag','Frame2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.338346 0.192884 0.324561 0.713483], ... 
'Style', 'frame', ... 

•Tag','Frame3'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

•BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0. 679 1 98 0.071161 0.309524 0.835206], ... 
'Style', 'frame', ... 

’Tag','Frame4'); 
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APPENDIX BH. STABILITY CONTROL INPUT2.M 



This M-file creates the second of two stability and control module parameter input 

screens 



function stability_control_input_2() 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

load stability_control_input_2 

a = figure(’Units', 'normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap',matO, ... 

'CreateFcn', 'global MESHVAL, MESH_VAL=0;;', ... 

'Name', 'Stability and Control Parameters page 2', ... 

'NumberTitle','o£f, ... 

'PointerShapeCData',matl, ... 

'Position', [0.0025 0.0483333 0.9975 0.89], ... 

’Tag’,’Fig2'); 
b = uimenuCParent',a, ... 

'Label', 'JANRAD Options', ... 

'TagVuimenul'); 
c = uimenuCParent',b, ... 

'Callback','performance_input_fcn quit', ... 

■Label', 'Quit JANRAD’, ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu('Parent',b, ... 

'Callback', 'performance input fcn return’, ... 

'Label', ’Return to Begining', ... 

'Tag', 'JANRAD OptionsSubuimenul'); 
c = uimenu(’Parent',b, ... 

'Callback', ’performance_input_fcn delta_input', ... 

'Enable', 'off, ... 

'Label', 'Change Input Parameters', ... 

'Tag','Subuimenu 1 ’); 
c = uimenu(’Parent',b, ... 

'Callback', 'performance_input_fcn about', ... 

'Label','About Janrad 98 ...', ... 

'Separator', 'on', ... 

'Tag','Subuimenu 1 '); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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’Position', [0.01 602 1 4 0.763359 0.174667 0.0534351], ... 

'StringVLong Cyclic Pitch per inch deflection (degrees/in)', ... 

'StyleVtext', ... 

Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

Units’, 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

’Callback','PA=get(gcbo,"String");S_USER_INPUT.PA=str2niun(PA);’, ... 

'Position', [0.217867 0.76673 0.0985545 0.0478011], ... 

'Style','edit', ... 

'Tag'.'EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 

'Position', [0.0 1602 14 0.708015 0.1749 0.0534351], ... 

'String', 'Lateral Cyclic Pitch per inch deflection (deg/in)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'temp=get(gcbo,''String");S_USER_INPUT.temp=str2num(temp);', ... 
'Position', [0.21 7867 0.709369 0.0985545 0.0478011], ... 

'Style','edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0 160214 0.650763 0.173565 0.0515267], ... 

'String', 'Collective pitch per inch deflection (deg/in)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol(’Parent',a, ... 

Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Vinf=get(gcbo,''String'');S_USER_INPUT.Vinf=str2num(Vinf);', ... 
'Position', [0.2 17867 0.652008 0.0985545 0.0516252], ... 

'Style’,'edit', ... 

'Tag'j’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0160214 0.530189 0.1749 0.0528302], ... 

'String','NOTAR slv twst/defl (deg. or in. travel) 1000 for TR', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'omega=get(gcbo,"String");S_USER_INPUT.omega=str2num(omega);', ... 
'Position', [0.21 8045 0.535581 0.0977444 0.0468165], ... 

'Style', 'edit', ... 

’Tag',EditTextr); 
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b = uicontrol('Parent',a, ... 

'UnitsVnormalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0291 139 0.357414 0.173418 0.0361217], ... 

'StringVHeight Above waterline (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor 1 , [1 1 1], ... 

'Callback', 'naz=get(gcbo,''String'');S_USER_INPUT.naz=str2num(naz);', ... 
'Position', [0.21682 0.351923 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag', r EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0293725 0.290566 0.1749 0.0509434], ... 

'String','Boom Fuselage Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'UnitsVnormalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'thetao=get(gcbo,"String'');S_USER_INPUT.thetao=str2num(thetao);', . 
'Position', [0.2 1682 0.294231 0.0985545 0.05], ... 

’Style’,’edit', ... 

'Tag'.'EditTextl'); 
b = uicontrol('Parent',a, ... 

'UnitsVnormalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

•Position', [0.0293725 0.233962 0.173565 0.0490566], ... 

'String', 'Boom Position Right of Buttline (ft)’, ... 

’StyleV'text’, ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Swing=get(gcbo,"String");S_USER_lNPUT.Swing=str2num(Swing);', 
■Position', [0.2 1682 0.236538 0.0985545 0.0480769], ... 

'Style'Vedit', ... 

'Tag'.’EditTextl'); 
b = uicontrolCParent',a, ... 

■Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0293725 0.19434 0.173565 0.0358491], ... 

'String', 'NOTAR diameter (ft))', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrolCParent',a, ... 

'Units','noimalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'bwing=get(gcbo,"String"),S_USER_INPUT.bwing=str2num(bwing);', 
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'Position', [0.2 1682 0.180769 0.0985545 0.0480769], ... 

'Style', 'edit 1 , ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent’,a, ... 

'Units','normalized', ... 

'Background Color',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.0293725 0.120755 0.173565 0.0584906], ... 

'String', 'Swirl Angle at Boom (degrees)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback 1 , 'CLwing=get(gcbo,"String");S_USER_INPUT.CLwing=str2num(CLwing);', ... 
'Position', [0.21682 0.125 0.0985545 0.0480769], ... 

'String',", ... 

'Style', 'edit', ... 

'Tag’,'EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0293725 0.0792453 0.173565 0.0339623], ... 

'String', 'NOTAR Max Force (lbs)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CDowing=get(gcbo,"String");S_USER_INPUT.CDowing=str2num(CDowing);', . 
'Position', [0.2 1 5506 0.0711538 0.0998686 0.0480769], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

*Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0293725 0.0113208 0.173565 0.0528302], ... 

'String', 'Thruster Fuselage Station (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'twist=get(gcbo,"String'');S_USER_INPUT.twist=str2num(twist);', ... 

■Position', [0.2 1682 0.0173077 0.0985545 0.0480769], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

•Position', [0.68594 0.745698 0.173456 0.0458891], ... 

'String', 'Height Above Waterline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
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b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 
'Position', [0.88042 0.74761 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag’.EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.68594 0.674952 0.17477 0.0497132], ... 

'StringVFuselage Station (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux) 
'Position', [0.881735 0.676864 0.0985545 0.0497132], ... 

'Style', 'edit', ... 

•Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',6, ... 

'Position', [0.68594 0.609943 0.173456 0.0478011], ... 

'String', 'Position Right of Buttline (ft)', ... 

'Style'.'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);', .. 
'Position', [0.881735 0.611855 0.0985545 0.0478011], ... 

•Style', 'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941],... 

'Position', [0.68594 0.544933 0.17477 0.047801 1], ... 

'String', 'Alpha Zero Lift (degrees)', ... 

'Style'.'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'AfV=get(gcbo,"String");S_USER_INPUT.Afv=str2num(AfV);', .. 
'Position', [0.88 1735 0.548757 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag'/EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 
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’Position’, [0.68594 0.481836 0.173456 0.0497132], ... 

'String', 'Angle of Incidence (degrees)', ... 

'Style','text', ... 

Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'Svert=get(gcbo,"String");S_USER_INPUT.Svert=str2num(Svert);', ... 
'Position', [0.881735 0.483748 0.0985545 0.0497132], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 

'Position', [0.68594 0.355641 0.17477 0.0478011], ... 

'String', Tip Chord (ft)', ... 

•Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', ’bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);', ... 
'Position', [0.881735 0.418738 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'Position', [0.68594 0.416826 0.17477 0.0478011], ... 

'String', 'Lift Curve Slope', ... 

•Style’, 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CLvert=get(gcbo,''String");S_USER_INPUT.CLvert=str2num(CLvert);’, ... 
'Position', [0.881735 0.355641 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

’BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.68594 0.286807 0.17477 0.0535373], ... 

'String', 'Root Chord (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent’,a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);', . 
'Position', [0.88 1735 0.290631 0.0985545 0.0478011], ... 

'Style',’edif, ... 

'Tag'j'EditTextl'); 
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b = uicontrol('Parent',a, ... 

'UnitsVnormalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.68594 0.217973 0.17477 0.0592734], ... 

'String', 'Rotor Downwash Ratio (page 489-Prouty)', ... 

'Style', 'text', ... 

'Tag',' StaticT ext2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[ 1 1 1], ... 

'Callback', 'Shoriz=get(gcbo,''String'');S_USER_INPUT.Shoriz=str2num(Shoriz);', 
'Position', [0.881735 0.225621 0.0985545 0.0478011], ... 

'Style'.'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.68594 0.1587 0.173456 0.0497132], ... 

'String', 'Fuselage Downwash Ratio (page 489-Prouty)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', , bhoriz=get(gcbo,"String");S_USER_INPUT.bhoriz=str2num(bhoriz);', 
'Position', [0.881735 0.162524 0.0985545 0.0478011], ... 

’Style','edit’, ... 

'Tag'.’EditTextl'); 
b = uicontrolCParent'.a, ... 

'Units', 'normalized', ... 

'Callback', 'performance_input_fcn back', ... 

TontSize',12, ... 

TontWeightVbold', ... 

■Position', [0.339028 0.01 15385 0.164258 0.0807692], ... 

'String', '« Back', ... 

'Tag'.'Pushbuttonl'); 
b = uicontrol('Parent',a, ... 
r Units','normalized', ... 

'Callback', 'performance_input_fcn print', ... 

'FontSize',12, ... 

'FontWeightVbold', ... 

'Position', [0.5 1 00 1 3 0.0114504 0.164219 0.0801527], ... 

'String', 'Print Screen', ... 

'Tag’, r Pushbutton2'); 
b = uicontrolCParent',a, ... 

'Units', 'normalized', ... 

'Callback', 'performance_input_fcn cnx', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.339119 0.101145 0.164219 0.0801527], ... 

'String', 'Cancel', ... 

'Tag','Pushbutton3 ') ; 
b = uicontrol('Parent',a, ... 
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'Units’, 'normalized', ... 

'Callback’,mat2, ... 

'FontSize',12, ... 

'FontWeight’.'bold', ... 

'Position',[0.51117 0.1 0.164258 0.0807692], ... 

'StringVContinue »', ... 

'Tag','Pushbutton4'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

■BackgroundColor’, [0. 75294 1 0.752941 0.752941], ... 

'FontSize’,14, ... 

'FontWeight'.'bold', ... 

'Position', [0.0225564 0.816479 0.290727 0.0898876], ... 

'String', 'RIGGING PARAMETERS', ... 

'Style', 'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units’.'normalized', ... 

'BackgroundColor', [0. 75294 1 0.752941 0.752941], ... 

'FontSize',14, ... 

’FontWeight’.'bold’, ... 

•Position’, [0.0200501 0.400749 0.298246 0.0505618], ... 

•StringVNOTAR PARAMETERS', ... 

’Style'.'text', ... 

'TagVStaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units' .'normalized', ... 

■BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight'.'bold', ... 

'Position',[0.755357 1.09524 0.296199 0.0831721], ... 

'String'.'MAIN ROTOR PARAMETERS’, ... 

'Style'.'text', ... 

’TagVStaticTextl’); 
b = uicontrolCParent’.a, ... 

'Units'.'normalized', ... 

'BackgroundColor',[0. 752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight’.'bold', ... 

'Position',[0.68797 0.797753 0.289474 0.0898876], ... 

'String', 'WING PARAMETERS’, ... 

'Style'.'text', ... 

'TagVStaticTextl'); 
b = uicontrol(’Parent',a, ... 

'Units'.'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight’.'bold', ... 

'Position', [0. 1 065 1 6 0.917603 0.763158 0.0674157], ... 

'StringVST ABILITY AND CONTROL PARAMETERS (PAGE 2 OF 2)', ... 
'Style'.'text', ... 

'Tag’,’StaticText3'); 
b = uicontrol('Parent',a, ... 
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'UnitsVnormalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position', [0.358396 0.754682 0.286967 0.151685], ... 

'String', 'CG LOCATION & INERTIAS/FUSELAGE PARAMETERS', ... 

'Style','text', ... 

’Tag','StaticTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);', ... 
'Position', [0.551905 0.248566 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag’.EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.356475 0.237094 0.17477 0.0535373], ... 

'String', 'Fuselage Downwash Ratio (page 513 Prouty)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);', ... 
'Position', [0.55 1905 0.313576 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0. 3 56475 0.304015 0.173456 0.0554493], ... 

'String', 'bi (slug ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

’Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', , bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);', ... 

'Position', [0.551905 0.376673 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag’.EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.356475 0.374761 0.173456 0.0478011], ... 

'StringVIzz (slug ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1],... 
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'Callback', 'Svert=get(gcbo,''String'');S_USER_INPUT.Svert=str2num(Svert);', 
'Position', [0.551905 0.441683 0.0985545 0.0497132], ... 

'Style', 'edit', ... 

'Tag'j’EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0 . 3 56475 0.438931 0.173565 0.0496183], ... 

'String', 'Iyy (slug ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uic ontrol ( 'Parent', a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2num(Afv);', ... 
'Position', [0.55 1905 0.506692 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag', r EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.356475 0.50478 0.173456 0.0478011], ... 

'String', 'Ixx (slug ft A 2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

■BackgroundColor', [1 1 1], ... 

'Callback', 'Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);', ... 
Position',[0.551905 0.56979 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag'.’EditTextl'); 
b = uicontrol('Parent',a, ... 

Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',6, ... 

'Position', [0.3 56475 0.564885 0.172596 0.0477099], ... 

'String', 'CG Position Right of Buttline (ft))', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux);', 
'Position', [0.551905 0.634799 0.0985545 0.0497132], ... 

'Style','edit', ... 

'Tag'^ditTextl'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.356475 0.633588 0.172596 0.0496183], ... 

'String', 'CG Fuselage Station (ft)', ... 

'Style', 'text', ... 
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TagyStaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l 1 1], ... 

'Callback', 'a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 

'Position', [0.550591 0.705545 0.0985545 0.0478011], ... 

'Style', 'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.356475 0.704198 0.171278 0.0458015], ... 

'String', 'CG Height Above Waterline (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0160214 0.590566 0.1749 0.0528302], ... 

'String', 'thetaOt/pedal deflection (deg/in or deg/deg)', ... 

'Style'.'text', ... 

'Tag',’StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Vinf=get(gcbo,"Strmg");S_USER_INPUT.Vmf=str2num(Vinf);', ... 
'Position', [0.217867 0.594646 0.0985545 0.0516252], ... 

'Style', ’edit’, ... 

’Tag','EditTextr); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position',[0.0160214 0.466038 0.1749 0.0509434], ... 

'String', 'Max Rudder Deflection (deg or in. travel)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'omega=get(gcbo,"String");S_USER_INPUT.omega=str2num(omega) 
'Position',[0.2 17623 0.479245 0.0987984 0.0471698], ... 

'Style’,'edit', ... 

'Tag',EditTextl'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.01 602 1 4 0.760377 0.1749 0.0528302], ... 

'String','Long Cyclic Pitch per inch deflection (degrees/in)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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'Position',[0.01 12782 0.464419 0.313283 0.451311], ... 
'Style','frame', ... 

'Tag', 'Frame 1'); 
b = uicontrol(’Parent',a, ... 

'Units’, 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0 1253 1 3 0.00374532 0.313283 0.455056], ... 
'Style', 'frame', ... 

'Tag','Frame2'); 
b = uicontrol('Parent',a, ... 

'Units','normalized', ... 

1 BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.3446 12 0.224719 0.315789 0.689139], ... 
'Style', 'frame', ... 

'Tag','Frame3'); 
b = uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position', [0.682957 0.134831 0.310777 0.779026], ... 
'Style', 'frame', ... 

'Tag','Frame4'); 
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